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INTRODUCTION 


FEATURES OF PROGRAMMER’S AID #1 

Programmer's Aid #1 combines several APPLE II programs that Integer BASIC 
programmers need quite frequently. To avoid having to load them from a 
cassette tape or diskette each time they are used, these programs have been 
combined in a special read-only memory (ROli) integrated circuit (IC). When 
this circuit is plugged into one of the empty sockets left on the APPLE'S 
printed-circuit board for this purpose, these programs become a built-in 
part of the computer the same way Integer BASIC and the Monitor routines 
are built in. Programmer's Aid #1 allows you to do the following, on your 
APPLE II: 


Chapter 1. 
Chapter 2. 

Chapter 3. 

Chapter 4. 

Chapter 5. 
Chapter 6. 
Chapter 7. 


ncuuuuci. cm eiiLiie integer d 
or a portion of the program. 


Load an Integer BASIC program from tape without 
erasing the Integer BASIC program that was already 
in memory, in order to combine the two programs. 

Verify that an Integer BASIC program has been 
saved correctly on tape, before the program 
is deleted from APPLE'S memory. 

Verify that a machine-language program or data area 
has been saved correctly on tape from the Monitor. 

Relocate 6502 machine-language programs. 

Test the memory of the APPLE. 

Generate musical notes of variable duration over 
four chromatic octaves, in five (slightly) 
different timbres, from Integer BASIC. 


Chapter 8. Do convenient High -Resolution graphics from Integer BASIC. 


Note: if your APPLE has the firmware APPLESOFT card installed, its switch 

must be down (in the Integer BASIC position) for Programmer's Aid #1 
to operate. 


XI 


HOW TO INSTALL THE PROGRAMMER’S AID ROM 


The Programmer's Aid ROM is an IC that has to be plugged into a socket on 
the inside of the APPLE II computer. 



1. Turn off the power switch on the back of the APPLE II. This is 
important to prevent damage to the computer. 

2. Remove the cover from the APPLE II. This is done by pulling up on the 
cover at the rear edge until the two corner fasteners pop apart. Do not 
continue to lift the rear edge, but slide cover backward until it comes 
free. 

3. Inside the APPLE, toward the right center of the main printed-circuit 
board, locate the large empty socket in Row F, marked "ROM-D0". 

4. Make sure that the Programmer's Aid ROM IC is oriented correctly. The 
small semicircular notch should be toward the keyboard. The Programmer's 
Aid ROM IC must match the orientation of the other ROM ICs that are already 
installed in that row. 

5. Align all the pins on the Programmer's Aid ROM IC with the holes in 
socket D0, and gently press the IC into place. If a pin bends, remove the 
IC from its socket using an "IC puller" (or, less optimally, by prying up 
gently with a screwdriver). Do not attempt to pull the socket off the 
board. Straighten any bent pins with a needlenose pliers, and press the IC 
into its socket again, even more carefully. 

6. Replace the cover of the APPLE, remembering to start by sliding the 
front edge of the cover into position. Press down on the two rear corners 
until they pop into place. 

7. Programmer's Aid //I is installed; the APPLE II may now be turned on. 
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2 Renumbering an entire BASIC program 

2 Renumbering a portion of a BASIC program 
4 Comments 
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RENUMBERING AN ENTIRE BASIC PROGRAM 


After loading your program into the APPLE, type the 

CLR 

command. This clears the BASIC variable table, so that the Renumber 
feature's parameters will be the first variables in the table. The 
Renumber feature looks for its parameters by location in the variable 
table. For the parameters to appear in the table in their correct 
locations, they must be specified in the correct order and they must have 
names of the correct length . 

Now, choose the number you wish assigned to the first line in your 
renumbered program. Suppose you want your renumbered program to start at 
line number 1000. Type 

START = 1000 

Any valid variable name will do, but it must have the correct number of 
characters. Next choose the amount by which you want succeeding line 
numbers to increase. For example, to renumber in increments of 10, type 

STEP = 10 

Finally, type the this command: 

CALL -10531 

As each line of the program is renumbered, its old line number is displayed 
with an "arrow" pointing to the new line number. A possible example might 
appear like this on the APPLE'S screen: 


7— > 1 000 
2 1 3— > 1010 
52 7—> 1020 
698->1030 
13000->1040 
13233— >1050 


RENUMBERING PORTIONS OF A PROGRAM 


You do not have to renumber your entire program. You can renumber just the 
lines numbered from, say, 300 to 500 by assigning values to four variables. 
Again, you must first type the command 

CLR 

to clear the BASIC variable table. 
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The first two variables for partial renumbering are the same as those for 
renumbering the whole program. They specify that the program portion, 
after renumbering, will begin with line number 200, say, and that each 
line s number thereafter will be 20 greater than the previous line's: 

START = 200 
STEP = 20 


The next two variables specify the program portion's range of line numbers 
before renumbering: 

FROM = 300 
TO = 500 

The final command is also different. For renumbering a portion of a 
program, use the command: 

CALL -10521 


If the program was previously numbered 

100 

120 

300 

310 

402 

500 

2000 

2022 

then after the renumbering specified above, the APPLE will show this list of 
changes : 

300->200 

310->220 

402->240 

500->260 


and the new program line numbers will be 

100 

120 

200 

220 

240 

260 

2000 

2022 
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You cannot renumber in such a way that the renumbered lines would replace, 
be inserted between or be intermixed with un-renumbered lines. Thus, you 
cannot change the order of the program lines. If you try, the message 

*** RANGE ERR 

is displayed after the list of proposed line changes, and the line numbers 
themselves are left unchanged. If you type the commands in the wrong order, 
nothing happens, usually. 


COMMENTS: 

1. If you do not CLR before renumbering, unexpected line numbers may 
result. It may or may not be possible to renumber the program again and 
save your work. 

2. If you omit the START or STEP values, the computer will choose them 
unpredictably. This may result in loss of the program. 

3. If an arithmetic expression or variable is used in a GOTO or GOSUB, that 
GOTO or GOSUB will generally not be renumbered correctly. For example, GOTO 
TEST or GOSUB 10+20 will not be renumbered correctly. 

4. Nonsense values for STEP, such as 0 or a negative number, can render 
your program unusable. A negative START value can renumber your program 
with line numbers above 32767, for what it's worth. Such line numbers are 
difficult to deal with. For example, an attempt to LIST one of them will 
result in a >32767 error. Line numbers greater than 32767 can be corrected 
by renumbering the entire program to lower line numbers. 

5. The display of line number changes can appear correct even though the 
line numbers themselves have not been changed correctly. After the *** 

RANGE ERR message, for instance, the line numbers are left with their 
original numbering. LIST your program and check it before using it. 

6. The Renumber feature applies only to Integer BASIC programs. 

7. Occasionally, what seems to be a "reasonable" renumbering does not work. 
Try the renumbering again, with a different START and STEP value. 
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APPENDING ONE BASIC PROGRAM TO ANOTHER 


If you have one program or program portion stored in your APPLE'S memory, 
and another saved on tape, it is possible to combine them into one program. 
This feature is especially useful when a subroutine has been developed for 
one program, and you wish to use it in another program without retyping the 
subroutine . 

For the Append feature to function correctly, all the line numbers of the 
program in memory must be greater than all the line numbers of the 
program to be appended from tape. In this discussion, we will call the 
program saved on tape "Programl," and the program in APPLE'S memory 
M Program2 . " 

If Program2 is not in APPLE'S memory already, use the usual command 

LOAD 

to put Program2 (with high line numbers) into the APPLE. Using the Renumber 
feature, if necessary, make sure that all the line numbers in Program2 are 
greater than the highest line number in Programl. 

Now place the tape for Programl in the tape recorder. Use the usual loading 
procedure, except that instead of the LOAD command use this command: 

CALL -11076 

This will give the normal beeps, and when the second beep has sounded, the 
two programs will both be in memory. If this step causes the message 

*** MEM FULL ERR 

to appear, neither Program2 nor Programl will be accessible. In this case, 
use the command 

CALL -11059 

to recover Program2, the program which was already in APPLE'S memory. 


COMMENTS: 


1. The Append feature operates only with APPLE II Integer BASIC programs. 

2. If the line numbers of the two progams are not as described, expect 
unpredictable results. 
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CHAPTER 

TAPE VERIFY (BASIC) 

8 Verifying a BASIC program SAVEd on tape 
8 Comments 



VERIFYING A BASIC PROGRAM SAVED ON TAPE 


Normally, it is impossible (unless you have two APPLEs) to know whether or 
not you have successfully saved your current program on tape, in time to do 
something about a defective recording. The reason is this: when you SAVE a 
program on tape, the only way to discover whether it has been recorded 
correctly is to LOAD it back in to the APPLE. But , when you LOAD a 
program, the first thing the APPLE does is erase whatever current program is 
stored. So, if the tape is bad, you only find out after your current 
program has been lost. 

The Tape Verify feature solves this problem. Save your current program in 
the usual way: 

SAVE 

Rewind the tape, and (without modifying your current program in any way) 
type the command 

CALL -10955 

Do not press the RETURN key until after you start the tape playing. If the 
tape reads in normally (with the usual two beeps), then it is correct. If 
there is any error on the tape, you will get a beep and the ERR message. If 
this happens, you will probably want to try re-recording the tape, although 
you don't know for sure whether the Tape Verify error means that the tape 
wasn't recorded right or if it just didn't play back properly. In any case, 
if it does verify, you know that it is good. 


COMMENTS: 


1. This works only with Integer BASIC programs. 

2. Any change in the program, however slight, between the time the program 
is SAVEd on tape and the time the tape is verified, will cause the 
verification to fail. 
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CHAPTER 



TAPE VERIFY 
(Machine Code or Data) 


10 Verifying a portion of memory saved on tape 

10 Comments 


VERIFYING A PORTION OF MEMORY SAVED ON TAPE 


Users of machine-language routines will find that this version of the Tape 
Verify feature meets their needs. Save the desired portion of memory, from 
address 1 to address 2, in the usual way: 

address 1 . address2 W return 

Note: the example instructions in this chapter often include spaces for 
easier reading; do not type these spaces. 

Rewind the tape, and type (after the asterisk prompt) 

D52EG return 

This initializes the Tape Verify feature by preparing locations $3F8 through 
$3FA for the Ctrl Y vector. Now type (do not type the spaces) 

address 1 . address2 Ctrl Y return 

and re-play the tape. The first error encountered stops the program and is 
reported with a beep and the word ERR. If it is not a checksum error, then 
the Tape Verify feature will print out the location where the tape and 
memory disagreed and the data that it expected on the tape. 

Note: type "ctrl Y" by typing Y while holding down the CTRL key; Ctrl Y is 
not displayed on the TV screen. Type "return" by pressing the RETURN key. 


COMMENTS: 

Any change in the specified memory area, however slight, between the time 
the program is saved on tape and the time the tape is verified, will cause 
the verification to fail. 
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PART A: THEORY OF OPERATION 

RELOCATING MACHINE-LANGUAGE CODE 


Quite frequently, programmers encounter situations that call for relocating 
machine-language (not BASIC) programs on the 6502-based APPLE II computer. 
Relocation implies creating a new version of the program, a version that 
runs properly in an area of memory different from that in which the original 
program ran. 

If they rely on the relative branch instruction, certain small 6502 programs 
can simply be moved without alteration, using the existing Monitor Move 
commands. Other programs will require only minor hand-modification after 
Monitor Moving. These modifications are simplified on the APPLE II by the 
built-in disassembler, which pinpoints absolute memory-reference 
instructions such as JMP's and JSR's. 

However, sometimes it is necessary to relocate lengthy programs containing 
multiple data segments interspersed with code. Using this Machine-Code 
Relocation feature can save you hours of work on such a move, with improved 
reliability and accuracy. 


The following situations call for program relocation: 

1. Two different programs, which were originally written to run in 
identical memory locations, must now reside and run in memory concurrently. 

2. A program currently runs from ROM. In order to modify its operation 
experimentally, a version must be generated which runs from a different set 
of addresses in RAM. 

3. A program currently running in RAM must be converted to run from EPROM 
or ROM addresses. 

4. A program currently running on a 16K machine must be relocated in order 
to run on a 4K machine. Furthermore, the relocation may have to be 
performed on the smaller machine. 

5. Because of memory -mapping differences, a program that ran on an APPLE I 
(or other 6502-based computer) falls into unusable address space on an APPLE 
II. 

6. Because different operating systems assign variables differently, either 
page-zero or non-page-zero variable allocation for a specific program may 
have to modified when moving the program from one make of computer to 
another. 
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7. A program, which exists as several chunks strewn about memory, must be 
combined in a single, contiguous block. 

8. A program has outgrown the available memory space and must be relocated 
to a larger, "free" memory space. 

9. A program insertion or deletion requires a portion of the program to 
move a few bytes up or down. 

10. On a whim, the user wishes to move a program. 


PROGRAM MODEL 

Here is one simple way to visualize program relocation: starting with a 
program which resides and runs in a "Source Block" of memory, relocation 
creates a modified version of that program which resides and runs properly 
in a "Destination Block" of memory. 

However, this model does not sufficiently describe situations where the 
Source Block" and the "Destination Block" are the same locations in memory. 
For example, a program written to begin at location $400 on an APPLE I (the 
$ indicates a hexadecimal number) falls in the APPLE II screen-memory range. 
It must be loaded to some other area of memory in the APPLE II. But the 
program will not run properly in its new memory locations, because various 
absolute memory references, etc., are now wrong. This program can then be 
"relocated" right back into the same new memory locations, a process which 
modifies it to run properly in its new location. 

A more versatile program model is as follows. A program or section of a 
program written to run in a memory range termed the "Source Block" 
actually resides currently in a range termed the "Source Segments". Thus 
a program written to run from location $400 may currently reside beginning 
at location $800. After relocation, the new version of the program must be 
written to run correctly in a range termed the "Destination Block" 
although it will actually reside currently in a range termed the 
"Destination Segments". Thus a program may be relocated such that it will 
run correctly from location $D800 (a ROM address) yet reside beginning at 
location $C00 prior to being saved on tape or used to burn EPROMs 
(obviously, the relocated program cannot immediately reside at locations 
reserved for ROM). In some cases, the Source and Destination Segments may 
overlap. 
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BLOCKS AND SEGMENTS EXAMPLE 


Segments : 

Locations in APPLE II 
where Programs Reside 
During Relocation 


Blocks : 

Locations where 
Programs Run 


$800 


$B87 


Original program 
runs from location 


$400 on APPLE I 


$C00 


$F87 


> 


* 


Relocated version 
runs from location 
$D800 on APPLE II 


(Source) 


Relocation 


(Destination) 


SOURCE BLOCK: $400-$787 
SOURCE SEGMENTS: $800-$B87 


DESTINATION BLOCK: 
DESTINATION SEGMENTS: 


$D800-$DB87 

$C00-$F87 
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DATA SEGMENTS 

The problem with relocating a large program all at once is that blocks of 
data (tables, text, etc.) may be interspersed throughout the code. During 
relocation, this data may be treated as if it were code, causing the data to 
be changed or causing code to be altered incorrectly because of boundary 
uncertainties introduced when the data takes on the multi-byte attribute of 
code. This problem is circumvented by dividing the program into code 
segments and data segments, and then treating the two types of segment 
differently. 


CODE AND DATA SEGMENTS EXAMPLE 


► 

Code Segment 
$800-$892 


Data Segment 
$893-$992 


Code Segment 
$993-$ABF 


Data Segment 
$AC0-$ACE 

► 

Code Segment 
$ACF-$B87 


The Source Code Segments are relocated (using the 6502 Code-Relocation 
feature), while the Source Data Segments are moved (using the Monitor 
Move command). 
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HOW TO USE THE CODE-RELOCATION FEATURE 


1. To initialize the 6502 Code-Relocation feature, press the RESET key to 
invoke the Monitor, and then type 

D4D5G return 

The Monitor user function Ctrl Y will now call the Code-Relocation feature 
as a subroutine at location $3F8. 

Note: To type M ctrl Y M , type Y while holding down the CTRL key. To type 
"return", press the RETURN key. In the remainder of this discussion, all 
instructions are typed to the right of the Monitor prompt character ( * )• 
The example instructions in this chapter often include spaces for easier 
reading; do not type these spaces. 


2. Load the source program into the "Source Segments" area of memory (if it 
is not already there). Note that this need not be where the program 
normally runs. 


3. Specify the Destination and Source Block parameters. Remember that a 
Block refers to locations from which the program will run , not the 
locations at which the Source and Destination Segments actually reside 
during the relocation. If only a portion of a program is to be relocated, 
then that portion alone is specified as the Block. 

DEST BLOCK BEG < SOURCE BLOCK BEG . SOURCE BLOCK END Ctrl Y * return 

Notes: the syntax of this command closely resembles that of the Monitor Move 
command. Type "ctrl Y" by pressing the Y key while holding down the CTRL 
key. Then type an asterisk ( * ); and finally, type "return" by pressing 
the RETURN key. Do not type any spaces within the command. 
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4. Move all Data Segments and relocate all Code Segments in sequential 
(increasing address) order. It is wise to prepare a list of segments, 
specifying beginning and ending addresses, and whether each segment is code 
or data. 


If First Segment is Code : 

DEST SEGMENT BEG < SOURCE SEGMENT BEG . SOURCE SEGMENT END Ctrl Y return 
If First Segment is Data : 

DEST SEGMENT BEG < SOURCE SEGMENT BEG . SOURCE SEGMENT END M return 


After the first segment has been either relocated (if Code) or Moved (if 
data) , subsequent segments can be relocated or Moved using a shortened form 
of the command. 

Subsequent Code Segments : 

. SOURCE SEGMENT END Ctrl Y return (Relocation) 

Subsequent Data Segments ; 

. SOURCE SEGMENT END M return (Move) 

Note: the shortened form of the command can only be used if each 
"subsequent" segment is contiguous to the segment previously relocated or 
Moved. If a "subsequent" segment is in a part of memory that does not begin 
exactly where the previous segment ended, it must be Moved or relocated 
using the full "First Segment" format. 


If the relocation is performed "in place" (SOURCE and DEST SEGMENTS reside 
in identical locations) then the SOURCE SEGMENT BEG parameter may be omitted 
from the First Segment relocate or Move command. 
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PART B: CODE-RELOCATION EXAMPLES 


EXAMPLE 1. Straightforward Relocation 

Program A resides and runs in locations $800-$97F. The relocated version 
will reside and run in locations $A00-$B7F. 


SOURCE SEGMENTS 


$800 


$97F 


w 

CODE 

$800-$88F 


DATA 

$890-$8AF 


CODE 

$8B0-$90F 


DATA 

$910-$93F 

IS 

CODE 

$940-$97F 


DEST SEGMENTS 


$A00 


$B7F 


► 

CODE 

$A00-$A8F 


DATA 

$A90-$AAF 


CODE 

$AB0-$B0F 


DATA 

$B10-$B3F 

JK 

CODE 

$B40-$B7F 


SOURCE BLOCK: 
SOURCE SEGMENTS: 


$800-$97F 

$800-$97F 


DEST BLOCK: $A00-$B7F 

DEST SEGMENTS: $A00-$B7F 


(a) Initialize Code-Relocation feature: 
reset D4D5G return 

(b) Specify Destination and Source Block parameters (locations from which 
the program will run): 

A00 < 800 . 97F Ctrl Y * return 

(c) Relocate first segment (code): 

A00 < 800 . 88F Ctrl Y return 
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(d) Move subsequent Data Segments and relocate subsequent Code Segments, in 
ascending address sequence: 


. 8AF M return (data) 

. 90F Ctrl Y return (code) 

. 93F M return (data) 

. 97F Ctrl Y return (code) 


Note that step (d) illustrates abbreviated versions of the following 
commands : 


A90 < 890 . 8AF M return (data) 
AB0 < 8B0 . 90F Ctrl Y return (code) 
B10 < 910 . 93F M return (data) 
B40 < 940 . 97F Ctrl Y return (code) 


EXAMPLE 2. Index into Block 

Suppose that the program of Example 1 uses an indexed reference into the 
Data Segment at $890 as follows: 

LDA 7B0, X 

where the X-REG is presumed to contain a number in the range $E0 to $FF. 
Because address $7B0 is outside the Source Block, it will not be relocated# 
This may be handled in one of two ways. 

(a) You may fix the exception by hand; or 

(b) You may begin the Block specifications one page lower than the 
addresses at which the original and relocated programs begin to use all such 
"early references." One lower page is enough, since FF (the number of bytes 
in one page) is the largest offset number that the X-REG can contain. In 
EXAMPLE 1, change step (b) to: 

900 < 700 . 97F Ctrl Y * return 

Note: with this Block specification, all program references to the "prior 
page" (in this case the $700 page) will be relocated. 
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EXAMPLE 3. Immediate Address References 

Suppose that the program of EXAMPLE 1 has an immediate reference which is an 
address. For example, 

LDA #$3F 
ST A LOC0 
LDA #$08 
STA LOC 1 
JMP (LOC0) 

In this example, the LDA #$08 will not be changed during relocation and the 
user will have to hand-modify it to $0A. 


EXAMPLE 4. Unusable Block Ranges 

Suppose a program was written to run from locations $400-$78F on an APPLE I. 
A version which will run in ROM locations $D800-$DB8F must be generated. 

The Source (and Destination) Segments will reside in locations $800-$B8F on 
the APPLE II during relocation. 

Source 
And 

Destination 
Blocks 


Runs from locations $400-$78F on 
an APPLE I, but must be relocated 
to run from locations $D800-$DB8F 
on the APPLE II. 


DEST BLOCK: $D800-$DB8F 
DEST SEGMENTS: $800-$B8F 


(a) Initialize the Code-Relocation feature: 
reset D4D5G return 


Addresses 

during 

relocation 


$800 


$B8F 


Source 

And 

Destination 

Segments 


► 

CODE 

$800-$97F 


DATA 


$980-$9FF 


CODE 

► 

$A00-$B8F 


SOURCE BLOCK: 
SOURCE SEGMENTS: 


$400-$78F 

$800-$B8F 


(b) Load original program into locations $800-$B8F (despite the fact that 
it doesn't run there): 

800 . B8F R return 
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(c) Specify Destination and Source Block parameters (locations from which 
the original and relocated versions will run): 

D800 < 400 • 78F Ctrl Y return 


(d) Move Data Segments and relocate Code Segments, in ascending address 
sequence: 

800 < 800 . 97F Ctrl Y return (first segment, code) 

. 9FF M return (data) 

. B8F Ctrl Y return (code) 

Note that because the relocation is done "in place", the SOURCE SEGMENT BEG 
parameter is the same as the DEST SEGMENT BEG parameter ($800) and need not 
be specified. The initial segment relocation command may be abbreviated as 
follows : 

800 < . 97F Ctrl Y return 


EXAMPLE 5. Changing the Page Zero Variable Allocation 

Suppose the program of EXAMPLE 1 need not be relocated, but the page zero 
variable allocation is from $20 to $3F. Because these locations are 
reserved for the APPLE II system monitor, the allocation must be changed to 
locations $80-$9F. The Source and Destination Blocks are thus not the 
program but rather the variable area. 

SOURCE BLOCK: $20-$3F DEST BLOCK: $80-$9F 

SOURCE SEGMENTS: $800-$97F DEST SEGMENTS: $800-$97F 


(a) Initialize the Code-Relocation feature: 
reset D4D5G return 


(b) Specify Destination and Source Blocks: 

80 < 20 . 3F Ctrl Y * return 


(c) Relocate Code Segments and Move Data Segments, in place: 


800 < . 88F Ctrl Y return 
. 8AF M return 
. 90F Ctrl Y return 
. 93F M return 

. 97F Ctrl Y return 


(first segment, code) 
(data) 

(code) 

(data ) 

(code) 
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EXAMPLE 6. Split Blocks with Cross-Referencing 

Program A resides and runs in locations $800-$8A6. Program B resides and 
runs in locations $900-$9Fl. A single, contiguous program is to be 
generated by moving Program B so that it immediately follows Program A. 
Each of the programs contains references to memory locations within the 
other. It is assumed that the programs contain no Data Segments. 


SOURCE SEGMENTS 


$800 

$8A6 

$900 
$9F 1 


w 

Program A 
$800-$8A6 


Unused 


Program B 
$900-$9Fl 


DEST SEGMENTS 


$800 

$8A6 

$8A7 

$998 


— W 

Program A 
$800-$8A6 

— £> 



Program B 


$8A7-$998 


SOURCE BLOCK: 
SOURCE SEGMENTS: 


$900-$9F 1 
$800-$8A6 (A) 
$900-$9F 1 (B) 


DEST BLOCK: 
DEST SEGMENTS: 


$8A7-$998 
$800-$8A6 (A) 
$8A7-$998 (B) 


(a) Initialize the Code-Relocation feature: 
D4D5G return 


(b) Specify Destination and Source Blocks (Program B only): 

8A7 < 900 . 9F 1 Ctrl Y * return 

(c) Relocate each of the two programs individually. Program A must be 
relocated even though it does not move. 

800 < . 8A6 Ctrl Y return (program A, "in place") 

8A7 < 900 . 9F 1 Ctrl Y return (program B, not "in place") 

Note that any Data Segments within the two programs would necessitate 
additional relocation and Move commands. 
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EXAMPLE 7. Code Deletion 

Four bytes of code are to be removed from within a program, and the program 
is to contract accordingly. 

SOURCE SEGMENTS DEST SEGMENTS 


$800 


Remove 4 
bytes here 


$97F 


— ► 

CODE 

$800-$88F 

$800 


CODE 

$800-$88F 


DATA 

$890-$8AF 



DATA 

$890-$8AF 

l\ 

CODE 

$8B0-$90F 



CODE 

$8B0-$90B 

' ) 

DATA 

$910-$93F 



DATA 

$90C-$93B 

— ► 

CODE 

$940-$97F 

$97B 

► 

CODE 

$93C-$97B 


SOURCE BLOCK: 
SOURCE SEGMENTS: 


$8C4-$97F 
$800-$88F (code) 
$890-$8AF (data) 
$8B0-$8BF (code) 
$8C4-$90F (code) 
$910-$93F (data) 
$940-$97F (code) 


DEST BLOCK: 
DEST SEGMENTS: 


$8C0-$97B 
$800-$88F (code) 
$890-$8AF (data) 
$8B0-$8BF (code) 
$8C0-$90B (code) 
$90C-$93B (data) 
$93C-$97B (code) 


(a) Initialize Code-Relocation feature: 


reset D4D5G return 

(b) Specify Destination and Source Blocks: 

8C0 < 8C4 . 97F Ctrl Y * return 


(c) Relocate Code Segments and Move Data Segments, in ascending address 
sequence: 


800 <. 88F Ctrl Y return 

. 8AF M return 

. 8BF Ctrl Y return 

8C0 < 8C4 . 90F Ctrl Y return 

. 93F M return 

. 97F Ctrl Y return 


(first segment, code, "in place") 
(data) 

(code) 

(first segment, code, not "in place") 
(data) 

(code) 


(d) Relative branches crossing the deletion boundary will be incorrect, 
since the relocation process does not modify them (only zero-page and 
absolute memory references). The user must patch these by hand. 
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EXAMPLE 8. Relocating the APPLE II Monitor 
($F800-$FFFF) to Run in RAM ($800-$FFF) 

SOURCE BLOCK: $F700-$FFFF DEST BLOCK: $700-$FFF 

(see EXAMPLE 2) 

SOURCE SEGMENTS: $F800-$F961 (code) DEST SEGMENTS: 

$F962-$FA42 (data) 

$FA43-$FB 18 (code) 

$FB 19-$FB ID (data) 

$FB1E-$FFCB (code) 

$FFCC-$FFFF (data) 

IMMEDIATE ADDRESS REFERENCES (see EXAMPLE 3): $FFBF 

$FEA8 

(more if not relocating 
to page boundary) 


$800-$961 (code) 
$962-$A42 (data) 
$A43-$B 18 (code) 
$B19-$B1D (data) 
$B1E-$FCB (code) 
$FCC-$FFF (data) 


(a) Initialize the Code-Relocation feature: 
reset D4D5G return 


(b) Specify Destination and Source Block parameters: 

700 < F 700 . FFFF Ctrl Y * return 


(c) Relocate Code Segments and move Data Segments, in ascending* address 
sequence: 


800 < F800 • F961 ctrl Y return 
. FA42 M return 
. FB18 Ctrl Y return 
. FB1D M return 
. FFCB Ctrl Y return 
. FFFF M return 


(first segment, code) 
(data) 

(code) 

(data) 

(code) 

(data) 


(d) Change immediate address references: 

FBF : E return (was $FE) 

EA8 : E return (was $FE) 
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PART C: PLOTTING POINTS AND LINES 

TECHNICAL INFORMATION 


The following details illustrate special technical features of the APPLE II 
which are used by the Code-Relocation feature. 


1. The APPLE II Monitor command 

Addr4 < Addrl . Addr2 Ctrl Y return (Addrl, Addr2, and Addr4 

are addresses) 

vectors to location $3F8 with the value Addrl in locations $3C (low) and $3D 
(high), Addr2 in locations $3E (low) and $3F (high), and Addr4 in locations 
$42 (low) and $43 (high). Location $34 (YSAV) holds an index to the next 
character of the command buffer (after the Ctrl Y). The command buffer (IN) 
begins at $200. 


2. If Ctrl Y is followed by * , then the Block parameters are simply 
preserved as follows: 


Parameter 


Preserved at 


SWEET 16 Reg Name 


DEST BLOCK BEG $8, $9 
SOURCE BLOCK BEG $2, $3 
SOURCE BLOCK END $4, $5 


TOBEG 

FRMBEG 

FRMEND 


3. If Ctrl Y is not followed by * , then a segment relocation is initiated 
at REL0C2 ($3BB). Throughout, Addrl ($3C, $3D) is the Source Segment 
pointer and Addr4 ($42, $43) is the Destination Segment pointer. 


4. INSDS2 is an APPLE II Monitor subroutine which determines the length of 
a 6502 instruction, given the opcode in the A-REG, and stores that opcode's 
instruction length in the variable LENGTH (location $2F) . 


Instruction Type LENGTH 
in A-REG (in $2F) 


Invalid 0 

1 byte 0 

2 byte 1 

3 byte 2 
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5. The code from XLATE to SW16RT ($3D9-$3E6) uses the APPLE II 16-bit 
interpretive machine, SWEET 16. The target address of the 6502 instruction 
being relocated (locations $C low and $D high) occupies the SWEET 16 register 
named ADR. If ADR is between FRMBEG and FRMEND (inclusive) then it is 
replaced by 

ADR - FRMBEG + TOBEG 


6. NXTA4 is an APPLE II Monitor subroutine which increments Addrl (Source 
Segment index) and Addr4 (Destination Segment index). If Addrl exceeds 
Addr2 (Source Segment end), then the carry is set; otherwise, it is cleared. 


ALGORITHM USED BY THE CODE-RELOCATION FEATURE 


1. Set SOURCE PTR to beginning of Source Segment 
and DEST PTR to beginning of Destination Segment. 

2. Copy 3 bytes from Source Segment (using SOURCE PTR) to temp INST area. 

3. Determine instruction length from opcode (1, 2 or 3 bytes). 

4. If two-byte instruction with non-zero-page addressing mode 
(immediate or relative) then go to step 7. 

5. If two-byte instruction then clear 3rd byte 
so address field is 0-255 (zero page). 

6. If address field (2nd and 3rd bytes of INST area) 
falls within Source Block , then substitute 


ADR - SOURCE BLOCK BEG + DEST BLOCK BEG 

7. Move "length" bytes from INST area to Destination Segment 
(using DEST PTR). Update SOURCE and DEST PTR's by length. 

8. If SOURCE PTR is less than or equal to SOURCE SEGMENT END 
then goto step 2. , else done. 



COMMENTS 


Each Move or relocation is carried out sequentially, one byte at a time, 
beginning with the byte at the smallest source address. As each source byte 
is Moved or relocated, it overwrites any information that was in the 
destination location. This is usually acceptable in these kinds of Moves 
and relocations: 

1. Source Segments and Destination Segments do not share any common 
locations (no source location is overwritten). 

2. Source Segments are in locations identical to the locations of 
the Destination Segments (each source byte overwrites itself). 

3. Source Segments are in locations whose addresses are larger 
than the addresses of the Destination Segments' locations (any 
overwritten source bytes have already been Moved or relocated). 

This is a move toward smaller addresses. 


If, however, the Source Segments and the Destination Segments share some 
common locations, and the Source Segments occupy locations whose addresses 
are smaller than the addresses of the Destination Segments' locations, 
then the source bytes occupying the common locations will be overwritten 
before they are Moved or relocated- If you attempt such a relocation, you 
will lose your program and data in the memory area common to both Source 
Segments and Destination Segments. To accomplish a small Move or relocation 
toward larger addresses, you must Move or relocate to an area of memory 
well away from the Source Segments (no address in common) ; then Move the 
entire relocated program back to its final resting place. 


Note: the example instructions in this chapter often include spaces for 
easier reading; do not type these spaces. 
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TESTING THE APPLE’S MEMORY 


With this program, you can easily discover any problems in the RAM (for 
Random Access Memory) chips in your APPLE. This is especially useful when 
adding new memory. While a failure is a rare occurrence, memory chips are 
both quite complex and relatively expensive. This program will point out 
the exact memory chip or chips, if any, that have malfunctioned. 

Memory chips are made in two types: one type can store 4K (4096) bits of 
information, the other can store 16K (16384) bits of information. Odd as it 
seems, the two types look alike, except for a code number printed on them. 

The APPLE has provisions for inserting as many as 24 memory chips of either 
type into its main printed-circuit board, in three rows of eight sockets 
each. An eight-bit byte of information consists of one bit taken from each 
of the eight memory chips in a given row. For this reason, memory can be 
added only in units of eight identical memory chips at a time, filling an 
entire row. Eight 4K memory chips together in one row can store 4K bytes 
of information. Eight 16K memory chips in one row can store 16K bytes of 
information. 

Inside the APPLE II, the three rows of sockets for memory chips are row "C", 
row "D M and row "E". The rows are lettered along the left edge of the 
printed-circuit board, as viewed from the front of the APPLE. The memory 
chips are installed in the third through the tenth sockets (counting from 
the left) of rows C, D and E. These sockets are labelled "RAM". Row C must 
be filled; and row E may be filled only if row D is filled. Depending on 
the configuration of your APPLE'S memory, the eight RAM sockets in a given 
row of memory must be filled entirely with 4K memory chips, entirely with 
16K memory chips, or all eight RAM sockets may be empty. 

To test the memory chips in your computer, you must first initialize the RAM 
Test program. Press the RESET key to invoke the Monitor, and then type 

D3BCG return 

Next, specify the hexadecimal starting address for the portion of memory 
that you wish to test. You must also specify the hexadecimal number of 
"pages" of memory that you wish tested, beginning at the given starting 
address. A page of memory is 256 bytes ($100 Hex). Representing the 
address by "a" and the number of pages by "p" (both in hexadecimal), start 
the RAM test by typing 

a . p Ctrl Y return 

Note 1: to type "ctrl Y", type Y while holding down the CTRL key; Ctrl Y is 
not displayed on the TV screen. Type "return" by pressing the RETURN key. 
The example instructions in this chapter often include spaces for easier 
reading; do not type these spaces. 

Note 2: test length p*100 must not be greater than starting address a. 
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For example, 

2000. 10 Ctrl Y return 


tests hexadecimal 1000 bytes of memory (4096, or "4K M bytes, in decimal), 
starting at hexadecimal address 2000 (8192, or "8K M , in decimal). 

If the asterisk returns (after a delay that may be a half minute or so) 
without an error message (see ERROR MESSAGES discussion), then the specified 
portion of memory has tested successfully. 


TABLE OF ADDRESS RANGES FOR STANDARD RAM 
CONFIGURATIONS 


If the 3 Memory 
Configuration 
Blocks 

Look like this: 


Contains this 
Then Range of 

Row of Hexadecimal 

Memory RAM Addresses 


And the total 
System Memory, 
If this is last 
Row filled, is 


r^4K 

4K 

4K 


*>16K 

4K 

4K 


^16K 

16K 

16K 


c 

0000-0FFF 

4K 

D 

1000-lFFF 

8K 

E 

2000-2FFF 

12K 

C 

0000-3FFF 

16K 

D 

4000-4FFF 

20K 

E 

5000-5FFF 

24K 

C 

0000-3FFF 

16K 

D 

4000-7FFF 

32K 

E 

8000-BFFF 

48K 


A 4K RAM Row contains 10 Hex pages (hex 1000 bytes, or decimal 4096 bytes). 
A 16K RAM Row contains 40 Hex pages (hex 4000 bytes, or decimal 16384 
bytes ) . 


A complete test for a 48K system would be as follows: 

400.4 Ctrl Y return y* This tests the screen area of memory 

800.8 Ctrl Y return I These first four tests examine 

1 Y return | ^ the first 16K row of memory (Row C) 

2000.20 Ctrl Y return/ 

4000.40 Ctrl Y return <4 This tests the second 16K row of memory (Row D) 

8000.40 Ctrl Y return M This tests the third 16K row of memory (Row E) 

Systems containing more than 16K of memory should also receive the following 
special test that looks for problems at the boundary between rows of memory: 

3000.20 Ctrl Y return 

Systems containing more than 32K of memory should receive the previous 
special test, plus the following: 


7000.20 Ctrl return 
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Tests may be run separately or they may be combined into one instruction. 

For instance, for a 48K system you can type: 

400.4 Ctrl Y 800.8 Ctrl Y 1000.10 Ctrl Y 2000.20 Ctrl Y 3000.20 Ctrl Y 
4000.40 Ctrl Y 7000.20 Ctrl Y 8000.40 Ctrl Y return 

Remember, Ctrl Y will not print on the screen, but it must be typed. With 
the single exception noted in the section TESTING FOR INTERMITTENT FAILURE, 
spaces are shown for easier reading but should not be typed. 

During a full test such as the one shown above, the computer will beep at 
the completion of each sub-test (each sub-test ends with a Ctrl Y). At the 
end of the full test, if no errors have been found the APPLE will beep and 
the blinking cursor will return with the Monitor prompt character ( * ). It 
takes approximately 50 seconds for the computer to test the RAM memory in a 
16K system; larger systems will take proportionately longer. 


ERROR MESSAGES 


TYPE I - Simple Error 

During testing, each memory address in the test range is checked by writing 
a particular number to it, then reading the number actually stored at that 
address and comparing the two. 

A simple error occurs when the number written to a particular memory address 
differs from the number which is then read back from that same address. 
Simple errors are reported in the following format: 


xxxx yy zz ERR r-c 


where xxxx 


yy 

zz 

r-c 


is the hexadecimal address at which the error was detected; 
is the hexadecimal data written to that address; 
is the hexadecimal data read back from that address; and 
is the row and column where the defective memory chip was 
found. Count from the left, as viewed from the front of 
the APPLE: the leftmost memory chip is in column 3, the 
rightmost is in column 10. 


Example: 


201F 00 10 ERR D-7 
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TYPE II - Dynamic Error 


This type of error occurs when the act of writing a number to one memory 
address causes the number read from a different address to change. If no 
simple error is detected at a tested address, all the addresses that differ 
from the tested address by one bit are read for changes indicating dynamic 
errors. Dynamic errors are reported in the following format: 

xxxx yy zz vvvv qq ERR r-c 


where 


xxxx is the hexadecimal address at which the error was detected; 
yy is the hexadecimal data written earlier to address xxxx; 
zz is the hexadecimal data now read back from address xxxx; 
vvvv is the current hexadecimal address to which data qq was 
successfully written; 

qq is the hexadecimal data successfully written to, and 
read back from, address vvvv; and 
r-c is the row and column where the defective memory chip was 
found. Count from the left, as viewed from the front of 
the APPLE: the leftmost memory chip is in column 3, the 
rightmost is in column 10. In this type of error, the 
indicated row (but not the column) may be incorrect. 


This is similar to Type I, except that the appearance of vvvv and qq 
indicates an error was detected at address xxxx after data was successfully 
written at address vvvv. 

Example: 

5051 00 08 5451 00 ERR E-6 

After a dynamic error, the indicated row (but not the column) may be 
incorrect. Determine exactly which tests check each row of chips (according 
to the range of memory addresses corresponding to each row), and run those 
tests by themselves. Confirm your diagnosis by replacing the suspected 
memory chip with a known good memory chip (you can use either a 4K or a 16K 
memory chip, for this replacement). Remember to turn off the APPLE'S power 
switch and to discharge yourself before handling the memory chips. 


TESTING FOR INTERMITTENT FAILURE 
(Automatically Repeating Test) 

This provides a way to test memory over and over again, indefinitely. You 
will type a complete series of tests, just as you did before, except that 
you will: 

a. precede the complete test with the letter N 

b. follow the complete test with 34:0 

c. type at least one space before pressing the RETURN key. 
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Here is the format: 


N (memory test to be repeated) 34:0 (type one space) return 

NOTE: You must type at least one space at the end of the line, prior to 
pressing the RETURN key. This is the only space that should be typed (all 
other spaces shown within instructions in this chapter are for easier 
reading only; they should not be typed). 

Example (for a 48K system): 

N 400.4 Ctrl Y 800.8 Ctrl Y 1000.10 Ctrl Y 2000.20 Ctrl Y 3000.20 Ctrl Y 
4000.40 Ctrl Y 7000.20 Ctrl Y 8000.40 Ctrl Y 34:0 return 

Run this test for at least one hour (preferably overnight) with the APPLE'S 
lid in place. * This allows the system and the memory chips to reach maximum 
operating temperature. 

Only if a failure occurs will the APPLE display an error message and rapidly 
beep three times; otherwise, the APPLE will beep once at the successful end 
of each sub-test. To stop this repeating test, you must press the RESET 
key . 

COMMENTS: 


1. You cannot test the APPLE'S memory below the address of 400 (Hex), since 
various pointers and other system necessities are there. In any case, if 
that region of memory has problems, the APPLE won't function. 

2. For any subtest, the number of pages tested cannot be greater than the 
starting address divided by 100 Hex. 2000.30 Ctrl Y will not work, but 
5000.30 Ctrl Y will. 

3. Before changing anything inside the APPLE, make sure the APPLE is 
plugged into a grounded, 3-wire power outlet, and that the power switch on 
the back of the computer is turned off. Always touch the outside metal 
bottom plate of the APPLE II, prior to handling any memory chips. This is 
done to remove any static charge that you may have acquired. 

EVEN A SMALL STATIC CHARGE CAN DESTROY MEMORY CHIPS 

4. Besides the eight memory chips, some additions of memory require 
changing three other chip-like devices called Memory Configuration Blocks. 
The Memory Configuration Blocks tell the APPLE which type of memory chip (4K 
or 16K) is to be plugged into each row of memory. A complete package for 
adding memory to your computer, containing all necessary parts and detailed 
instructions, can be purchased from APPLE Computer Inc. To add 4K of 
memory, order the 4K Memory Expansion Module (P/N A2M0014). To add 16K of 
memory, order the 16K Memory Expansion Module (P/N A2M0016). 
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GENERATING MUSICAL TONES 


The Music feature is most easily used from within an Integer BASIC program. 
It greatly simplifies the task of making the APPLE II into a music-playing 
device. 

There are three things the computer needs to know before playing a note: 
pitch (how high or low a note), duration (how long a time it is to sound), 
and timbre. Timbre is the quality of a sound that allows you to distinguish 
one instrument from another even if they are playing at the same pitch and 
loudness. This Music feature does not permit control of loudness. 

It is convenient to set up a few constants early in the program: 

MUSIC = -10473 
PITCH = 767 
TIME = 766 
TIMBRE = 765 


There are 50 notes available, numbered from 1 to 50. The statement 
POKE PITCH, 32 

will set up the Music feature to produce (approximately) the note middle C. 
Increasing the pitch value by one increases the pitch by a semitone. Thus 

POKE PITCH, 33 

would set up the Music feature to produce the note C sharp. Just over four 
chromatic octaves are available. The note number 0 indicates a rest (a 
silence) rather than a pitch. 


The duration of the note is set by 
POKE TIME, t 

Where t is a number from 1 to 255. The higher the number, the longer the 
note. A choice of t = 170 gives notes that are approximately one second 
long. To get notes at a metronome marking of MM, use a duration of 
10200/MM. For example, to get 204 notes per minute (approximately) use the 
command 

POKE TIME, 10200/204 
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There are five timbres, coded by the numbers 2, 8, 16, 32 and 64. They are 
not very different from one another. With certain timbres, a few of the 
extremely low or high notes do not give the correct pitch. Timbre 32 does 
not have this problem. 

POKE TIMBRE, 32 


When the pitch, time, and timbre have been set, the statement 

CALL MUSIC 

will cause the specified note to sound. 


The following program plays a chromatic scale of four octaves: 

10 MUSIC = -10473: PITCH = 767: TIME = 766: TIMBRE = 765 

20 POKE TIME, 40: POKE TIMBRE, 32 

30 FOR I = 1 TO 49 

40 POKE PITCH, I 

50 CALL MUSIC 

60 NEXT I: END 


Where X is a number from 51 through 255, 

POKE PITCH, X 

will specify various notes, in odd sequences. In the program above, change 
line 40 to 

40 POKE PITCH, 86 

for a demonstration. 


COMMENTS: 


Some extremely high or low notes will come out at the wrong pitch w'ith 
certain timbres. 
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Part G: Comments 


PART A: SETTING UP PARAMETERS, SUBROUTINES, 
AND COLORS 


Programmer's Aid #1 provides your APPLE with the ability to do 
high-resolution color graphics from Integer BASIC. You may plot dots, lines 
and shapes in a wide variety of detailed forms, in 6 different colors (4 
colors on systems below S/N 6000), displayed from two different "pages" of 
memory. The standard low-resolution graphics allowed you to plot 40 squares 
across the screen by 47 squares w from top to bottom of the screen. This 
high-resolution graphics display mode lets you plot in much smaller dots, 

280 horizontally by 192 vertically. Because 8K bytes of memory (in 
locations from 8K to 16K, for Page 1) are dedicated solely to maintaining 
the high-resolution display, your APPLE must contain at least 16K bytes of 
memory. To use the Page 2 display (in locations from 16K to 24K) , a system 
with at least 24K bytes of memory is needed. If your system is using the 
Disk Operating System (DOS), that occupies the top 10. 5K of memory: you will 
need a minimum 32K system for Page 1, or 36K for Page 1 and Page 2. See the 
MEMORY MAP on page 63 for more details. 


POSITIONING THE HIGH-RESOLUTION PARAMETERS 


The first statement of an Integer BASIC program intending to use the 
Programmer's Aid High-Resolution subroutines should be: 

0 X0 = Y0 = COLR = SHAPE = ROT = SCALE 

The purpose of this statement is simply to place the six BASIC variable 
names used by the High-Resolution feature (with space for their values) into 
APPLE'S "variable table" in specific, known locations. When line 0 is 
executed, the six High-Resolution graphics parameters will be assigned 
storage space at the very beginning of the variable table, in the exact 
order specified in line 0. Year BASIC program then uses those parameter 
names to change the six parameter values in the variable table. However, 
the High -Resolution subroutines ignore the parameter names , and look for 
the parameter values in specific variable-table locations . That is why 
the program's first line must place the six High-Resolution graphics 
parameters in known variable-table locations. Different parameter names may 
be used, provided that they contain the same number of characters. Fixed 
parameter-name lengths are also necessary to insure that the 
parameter-value storage locations in the variable table do not change. For 
example, the name HI could be used in place of X0, but X or XCOORD could 
not . 
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The parameters SHAPE, ROT, and SCALE are used only by the subroutines that 
draw shapes (DRAW and DRAW1, see PART E). These parameters may be omitted 
from programs using only the PLOT and LINE features: 

0 X0 = Y0 = COLR 

Omitting unnecessary parameter definitions speeds up the program during 
execution. However, you can omit only those unused parameters to the right 
of the last parameter which d_s used. Each parameter that is used must 
be in its proper place, relative to the first parameter in. the definition 
list . 


DEFINING SUBROUTINE NAMES 


After the six parameters have been defined, the twelve High-Resolution 
subroutines should be given names, and these names should be assigned 
corresponding subroutine entry addresses as values. Once defined in this 
way, the various subroutines can be called by name each time they are used, 
rather than by numeric address. When subroutines are called by name, the 
program is easier to type, more likely to be error-free, and easier to 
follow and to debug. 

5 INIT = -12288 : CLEAR = -12274 : BKGND = -11471 

6 POSN = -11527 : PLOT = -11506 : LINE = -11500 

7 DRAW = -11465 : DRAW1 = -11462 

8 FIND = -11780 : SHLOAD = -11335 

Any variable names of any length may be used to call these subroutines. If 
you want maximum speed, do not define names for subroutines that you will 
not use in your program. 


DEFINING COLOR NAMES 


Colors may also be specified by name, if a defining statement is added to 
the program. Note that GREEN is preceded by LET to avoid a SYNTAX ERROR, 
due to conflict with the GR command. 

0 A 

10 BLACK = 0 : LET GREEN = AZ : VIOLET = 85 

11 WHITE = 127-fcF ORANGE = 1 70 BLUE = 21305 

12 BLACK2 = 128gOWHITE2 = 255 ff 

Any integer from 0 through 255 may be used to specify a color, but most of 
the numbers not named above give rather unsatisfactory "colors". On systems 
below S/N 6000, 170 will appear as green and 213 will appear as violet. 
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Once again, unnecessary variable definitions should be omitted, as they will 
slow some programs. Therefore, a program should not define VIOLET = 85 
unless it uses the color VIOLET. 

The following example illustrates condensed initialization for a program 
using only the INIT, PLOT, and DRAW subroutines, and the colors GREEN and 
WHITE. 

0 X0 = Y0 = COLR = SHAPE = ROT = SCALE 
5 INIT = -12288 : PLOT = -11506 : DRAW = -11465 
10 LET GREEN = 42 : WHITE = 127 

(Body of program would go here) 


SPEEDING UP YOUR PROGRAM 


Where maximum speed of execution is necessary, any of the following 
techniques will help: 

1. Omit the name definitions of colors and subroutines, and refer to colors 
and subroutines by numeric value, not by name. 


2. Define the most frequently used program variable names before defining 
the subroutine and color names (lines 5 through 12 in the previous 
examples). The example below illustrates how to speed up a program that 
makes very frequent use of program variables I, J, and K: 

0 X0 = Y0 = COLR = SHAPE = ROT = SCALE 
2 I = J = K 

5 INIT = -12288 : CLEAR = -12274 

6 BKGND = -11471 : POSN = -11527 
10 BLACK = 0 : VIOLET = 85 

3. Use the High-Resolution graphics parameter names as program variables 
when possible. Because they are defined first, these parameters are the 
BASIC variables which your program can find fastest. 
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PART B: PREPARING THE SCREEN FOR GRAPHICS 

THE INITIALIZATION SUBROUTINE 


In order to use CLEAR, BKGND , POSN, PLOT, or any of the other 
High-Resolution subroutine CALLs, the INITialization subroutine itself must 
first be CALLed: 

CALL IN IT 

The INITialization subroutine turns on the high-resolution display and 
clears the high-resolution screen to black. INIT also sets up certain 
variables necessary for using the other High-Resolution subroutines. The 
display consists of a graphics area that is 280 x-positions wide (X0=0 
through X0=279) by 160 y-positions high (Y0=0 through Y0=159), with an area 
for four lines of text at the bottom of the screen. Y0 values from 0 
through 191 may be used, but values greater than 159 will not be displayed 
on the screen. The graphics origin (X0=0, Y0=0) is at the top left corner 
of the screen. 


CHANGING THE GRAPHICS SCREEN 


If you wish to devote the entire display to graphics (280 x-positions wide 
by 192 y-positions high), use 

POKE -16302, 0 

The split graphics-plus-text mode may be restored at any time with 

POKE -16301, 0 
or another 

CALL INIT 

When the High-Resolution subroutines are first initialized, all graphics are 
done in Page 1 of memory ($2000-3FFF) , and only that page of memory is 
displayed. If you wish to use memory Page 2 ($4000-5FFF) , two POKEs allow 
you to do so: 

POKE 806, 64 

causes subsequent graphics instructions to be executed in Page 2, unless 
those instructions attempt to continue an instruction from Page 1 (for 
instance, a LINE is always drawn on the same memory page where the last 
previous point was plotted). After this POKE, the display will still show 
memory Page 1. 
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To see what you are plotting on Page 2, 

POKE -16299, 0 

will cause Page 2 to be displayed on the screen. You can switch the screen 
display back to memory Page 1 at any time, with 

POKE -16300, 0 

while 

POKE 806, 32 

will return you to Page 1 plotting. This last POKE is executed 
automatically by INIT. 


CLEARING THE SCREEN 


If at any time during your program you wish to clear the current plotting 
page to black, use 

CALL CLEAR 

This immediately erases anything plotted on the current plotting page. 

INIT first resets the current plotting page to memory Page 1, and then 
clears Page 1 to black. 

The entire current plotting page can be set to any solid background color 
with the BKGND subroutine. After you have INITialized the High-Resolution 
subroutines, set COLR to the background color you desire, and then 

CALL BKGND 

The following program turns the entire display violet: 

0 X0 = Y0 = COLR : REM SET PARAMETERS 

5 INIT * -12288 : BKGND = -11471 : REM DEFINE SUBROUTINES 
10 VIOLET = 85 : REM DEFINE COLOR 

20 CALL INIT : REM INITIALIZE HIGH-RESOLUTION SUBROUTINES 
30 COLR = VIOLET : REM ASSIGN COLOR VALUE 

40 CALL BKGND : REM MAKE ALL OF DISPLAY VIOLET / 

50 END 

V 
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PART C: PLOTTING POINTS AND LINES 


Points can be plotted anywhere on the high-resolution display, in any valid 
color, with the use of the PLOT subroutine. The PLOT subroutine can only be 
used after a CALL IN IT has been executed, and after you have assigned 
appropriate values to the parameters X0, Y0 and COLR. X0 must in the range 
rom 0 through 279, Y0 must be in the range from 0 through 191, and COLR 
must be in the range from 0 through 255, or a 

*** RANGE ERR 

message will be displayed and the program will halt. 


The program below plots a white dot at X-coordinate 35, Y-coordinate 55, and 
a violet dot at X-coordinate 85, Y-coordinate 90: 

0 X0 = Y0 = COLR : REM SET PARAMETERS 

5 INIT = -12288 : PLOT = -11506 : REM DEFINE SUBROUTINES 
10 WHITE = 127 : VIOLET = 85 : REM DEFINE COLORS 
20 CALL INIT : REM INITIALIZE SUBROUTINES 
30 COLR = WHITE : REM ASSIGN PARAMETER VALUCS 
40 X0 = 35 : Y0 * 55 

50 CALL PLOT : REM PLOT WITH ASSIGNED PARAMETER VALUES 
60 COLR = VIOLET : REM ASSIGN NEW PARAMETER VALUES 
70 X0 = 85 : Y0 = 90 

80 CALL PLOT : REM PLOT WITH NEW PARAMETER VALUES 
90 END 


The subroutine POSN is exactly like PLOT, except that nothing is placed on 

PART S p^ ee "i'i ^ 0bR “ USt b f s P ecifled > however, and a subsequent DRAW1 (see 
AK1 E) will take its color from the color used by POSN. This subroutine is 
often used when establishing the origin-point for a LINE. 


Connecting any two points with a straight line is done with the LINE 
subroutrne. As with the PLOT subroutine, a CALL INIT must be executed, and 
U C0LR must be s P ecified> In addition, before the LINE subroutine 

pf" be CALLed » the line's point of origin must have been plotted with a CALL 

pat7 ,°Lf bh ! Snd P ° lnt ° f 3 P revious llne ° r shape. Do not attempt to use 
CALL LINE without first plotting a point for the line's origin, or the line 
may be drawn in random memory locations, not necessarily restricted to the 
current memory page. Once again, X0 and Y0 (the coordinates of the 
termination point for the line), and COLR must be assigned legitimate 
values, or an error may occur. 


45 


The following program draws a grid of green lines vertically and violet 
lines horizontally, on a white background: 

0 X0 = Y0 = COLR : REM SET PARAMETER S , THEN DEFINE SUBROUTINES 
5 INIT = -12288 : BKGND = -11471 : PLOT = -11506 : LINE = -11500 

10 LET GREEN = 42 : VIOLET = 85 : WHITE = 127 : REM DEFINE COLORS 

20 CALL INIT : REM INITIALIZE HIGH-RESOLUTION SUBROUTINES 
30 POKE -16302, 0 : REM SET FULL-SCREEN GRAPHICS 

40 COLR = WHITE : CALL BKGND : REM MAKE THE DISPLAY ALL WHITE 

50 COLR = GREEN : REM ASSIGN PARAMETER VALUES 
60 FOR X0 = 0 TO 270 STEP 10 

70 Y0 = 0 : CALL PLOT : REM PLOT A STARTING-POINT AT TOP OF SCREEN 

80 Y0 = 190 : CALL LINE : REM DRAW A VERTICAL LINE TO BOTTOM OF SCREEN 

90 NEXT X0 : REM MOVE RIGHT AND DO IT AGAIN 

100 COLR = VIOLET : REM ASSIGN NEW PARAMETER VALUES 

110 FOR Y0 = 0 TO 190 STEP 10 

120 X0 = 0 : CALL PLOT : REM PLOT A STARTING-POINT AT LEFT EDGE OF SCREEN 

130 X0 = 270 : CALL LINE : REM PLOT A HORIZONTAL LINE TO RIGHT EDGE 

140 NEXT Y0 : REM MOVE DOWN AND DO IT AGAIN 
150 END 


PART D: CREATING, SAVING AND LOADING SHAPES 

INTRODUCTION 


The High-Resolution feature's subroutines provide the ability to do a wide 
range of high-resolution graphics "shape" drawing. A "shape" is considered 
to be any figure or drawing (such as an outline of a rocket ship) that the 
user wishes to draw on the display many times, perhaps in different sizes, 
locations and orientations. Up to 255 different shapes may be created, 
used, and saved in a "Shape Table", through the use of the High-Resolution 
subroutines DRAW, DRAW1 and SHLOAD, in conjunction with parameters SHAPE, 
ROT and SCALE. 

In this section, PART D, you will be shown how to create, save and load a 
Shape Table. The following section, PART E, demonstrates the use of the 
shape-drawing subroutines with a predefined Shape Table. 
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HOW TO CREATE A SHAPE TABLE 


Before the High-Resolution shape-drawing subroutines can be used, a shape 
must be defined by a "shape definition." This shape definition consists of 
a sequence of plotting vectors that are stored in a series of bytes in 
APPLETS memory. One or more such shape definitions, with their index, make 
up a "Shape Table" that can be created from the keyboard and saved on disk 
or cassette tape for future use. 

Each byte in a shape definition is divided into three sections, and each 
section can specify a "plotting vector": whether or not to plot a point, and 
also a direction to move (up, down, left, or right). The shape-drawing 
subroutines DRAW and DRAW1 (see PART E) step through each byte in the shape 
definition section by section, from the definition's first byte through its 
last byte. When a byte that contains all zeros is reached, the shape 
definition is complete. 

This is how the three sections A, B and C are arranged within one of the 
bytes that make up a shape definition: 


Section: 

Bit Number: 
Specifies : 


7 6 


5 4 


D P D D P D D 


Each bit pair DD specifies a direction to move, and each bit P specifies 
whether or not to plot a point before moving, as follows: 


If DD = 00 
= 01 
= 10 
= 11 


move up 
move right 
move down 
move left 


If P = 0 don't plot 
=1 do plot 


Notice that the last section, C (the two most significant bits), does not 
have a P field (by default, P=0), so section C can only specify a move 
wit hout plotting. 


Each byte can represent up to three plotting vectors, one in section A, one 
in section B, and a third (a move only) in section C. 

DRAW and DRAW 1 process the sections from right to left (least significant 
bit to most significant bit: section A, then B, then C). At any section in 
the byte, IF ALL THE REMAINING SECTIONS OF THE BYTE CONTAIN ONLY ZEROS, THEN 
THOSE SECTIONS ARE IGNORED. Thus, the byte cannot end with a move in 
section C of 00 (a move up, without plotting) because that section, 
containing only zeros, will be ignored. Similarly, if section C is 00 
(ignored), then section B cannot be a move of 000 as that will also be 
ignored. And a move of 000 in section A will end your shape definition 
unless there is a 1-bit somewhere in section B or C. 
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• • • 


• © 

Suppose you want to draw a shape like this: 

• © 

© © 


First, draw it on graph paper, one 
dot per square. Then decide where 
to start drawing the shape. Let's 
start this one at the center. Next 


draw a path through each point in 
the shape, using only 90 degree 
angles on the turns: 


A 





T 

i 




T 

1 

i 

i 


1 


? 

_L 

i 


i 

■ i— •*" 

? 

4 

i — 


- 4 - 


Next, re-draw the shape as a series 
of plotting vectors, each one moving 
one place up, down, right, or left, 
and distinguish the vectors that 
plot a point before moving (a dot 
marks vectors that plot points). 


Now "unwrap" those vectors and write them in a straight line: 

it** — tin — “ **■ - mi — ■ 


Next draw a table like the one in Figure 1, below: 


Section C 

B 

A 

Byte 0 


* 

* 

1 



-«-o 

2 


i 

t 

3 

— 

i 

t 

4 


«-► 

»-► 

5 


* 


6 


T 


7 


— 


8 




9 





L 


0i 


This Vector 
Cannot Plot 
or Move Up 




B 

JW 

111 

100 

100 

101 

010 

110 

011 


Vector Code 


111 

000 

100 

101 

101 

110 

110 

1111 



“Denotes End 
of Shape 
Definition 


Figure 1 


I Move 
|Only 


! Plot 
& Move 


For each vector in the line, determine the bit code and place it in the next 
available section in the table. If the code will not fit (for example, the 
vector in section C can't plot a point), or is a 00 (or 000) at the end of a 
byte, then skip that section and go on to the next. When you have finished 
coding all your vectors, check your work to make sure it is accurate. 
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Now make another table, as shown in Figure 2, below, and re— copy the vector 
codes from the first table. Recode the vector, information into a series of 
hexadecimal bytes, using the hexadecimal codes from Figure 3. 








Bytes 

Codes 


Section 

: C 


B 

A 


Recoded 





— * — 

- 

— ^ 

• 


in Hex 

Binary 


Hex 

Byte 0 

0 0 

0 

1 

0 0 10 

= 

1 2 

0000 

= 

0 

1 

0 0 

1 

1 

1111 

= 

3 F 

0001 

= 

1 

2 

0 0 

1 

0 

0 0 0 0 

= 

2 0 

0010 

= 

2 

3 

0 1 

1 

0 

0 10 0 

= 

6 4 

0011 

= 

3 

4 

0 0 

1 

0 

110 1 

= 

2 D 

0100 

= 

4 

5 

0 0 

0 

1 

0 10 1 

= 

1 5 

0101 

= 

5 

6 

0 0 

1 

1 

0 110 

= 

3 6 

0110 

= 

6 

7 

0 0 

0 

1 

1110 

= 

1 E 

0111 

= 

7 

8 

0 0 

0 

0 

0 111 

= 

0 7 

1000 

= 

8 

9 

0 0 

0 

0 

0 0 0 0 

= 

0 0^- Denotes End 

1001 

= 

9 


' 

— 


' 


of Shape 

1010 

= 

A 

Hex: 

Digit 

1 

Digit 2 


Definition 

1011 

= 

B 








1100 

= 

C 








1101 

= 

D 








1110 

= 

E 





Figure 2 



1111 


F 


Figure 3 


The series of hexadecimal bytes that you arrived at in Figure 2 is the shape 
definition. There is still a little more information you need to provide 
before you have a complete Shape Table. The form of the Shape Table, 
complete with its index , is shown in Figure 4 on the next page. 

For this example, your index is easy: there is only one shape definition. 

The Shape Table's starting location, whose address we have called S, must 
contain the number of shape definitions (between 0 and 255) in hexadecimal. 
In this case, that number is just one. We will place our shape definition 
immediately below the index, for simplicity. That means, in this case, the 
shape definition will start in byte S+4: the address of shape definition #1, 
relative to S, is 4 (00 04, in hexadecimal). Therefore, index byte S+2 must 
contain tne value 04 and index byte S+3 must contain the value 00. The 
completed Shape Table for this example is shown in Figure 5 on the next 
page. 
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Start=S -*► /Byte S+0 
+1 
+2 
+3 
+4 

Index +5 


+2n 

+2n+l 

S+Dl 


S+D2 


Shape 

Definitions 


S+Dn 


n (0 to FF) 1 

Unused ! 

Lower 2 Digits] 

Upper 2 Digits 

Lower 2 Digits 

Upper 2 Digits) 

I . . . 1 

1 . . . I 

. . . i 

Lower 2 Digits 

Upper 2 Digits 


First Byte 

. 

Last Byte=00 

1 

First Byte 

• 

Last Byte=00 

• 

First Byte 

• 

Last Byte=00 


Total Number of 

Shape Definitions 
Dl: Index to First Byte of Shape 
Definition //I , Relative to S 
D2: Index to First Byte of Shape 
Definition #2, Relative to S 


Dn: Index to First Byte of Shape 
Definition # n, Relative to S 


Shape Definition // 1 


Shape Definition # 2 


Shape Definition #n 


Figure 4 


Start 

(Store this address 
in $328 and $329) 


-► Byte 0 
1 
2 

3 

4 

5 

6 

7 

8 
9 
A 
B 
C 
D 


01 

00 

04 

00 

12 

3F 

20 

64 

2D 

15 

36 

IE 

07 

00 



/♦- 


Number of Shapes 

Index to Shape Definition #1, 
Relative to Start 

First Byte 


Shape Definition #1 


Last Byte 


Figure 5 
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You are now ready to type the Shape Table into APPLE'S memory. First, 
choose a starting address. For this example, we'll use hexadecimal address 
0800. 

Note: this address must be less than the highest memory address available 
in your system (HIMEM), and not in an area that will be cleared when you use 
memory Page 1 (hexadecimal locations $2000 to $4000) or Page 2 (hexadecimal 
locations $4000 to $6000) for high-resolution graphics. Furthermore, it 
must not be in an area of memory used by your BASIC program. Hexadecimal 
0800 (2048, in decimal) is the lowest memory address normally available to a 
BASIC program. This lowest address is called LOMEM. Later on, we will move 
the LOMEM pointer higher, to the end of our Shape Table, in order to protect 
our table from BASIC program variables. 

Press the RESET key to enter the Monitor program, and type the Starting 
address for your Shape Table: 


If you press the RETURN key now, APPLE will show you the address and the 
contents of that address. That is how you examine an address to see if 
you have a put the correct number there. If instead you type a colon ( : ) 
followed by a two-digit hexadecimal number, that number will be stored at 
the specified address when you press the RETURN key. Try this: 

0800 return 

(type "return" by pressing the RETURN key). What does APPLE say the 
contents of location 0800 are? Now try this: 

0800:01 return 
0800 return 
0800- 01 

The APPLE now says that the value 01 (hexadecimal) is stored in the location 
whose address is 0800. To store more two-digit hexadecimal numbers in 
successive bytes in memory, just open the first address: 

0800 : 

and then type the numbers, separated by spaces: 

0800:01 00 04 00 12 3F 20 64 2D 15 36 IE 07 00 return 
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You have just typed your first complete Shape Table... not so bad, was it? 

To check the information in your Shape Table, you can examine each byte 
separately or simply press the RETURN key repeatedly until all the bytes of 
interest (and a few extra, probably) have been displayed: 

0800 return 
0800- 01 

return 

00 04 00 12 3F 20 64 

return 

0808- 2D 15 36 IE 07 00 FF FF 

If your Shape Table looks correct, all that remains is to store the starting 
address of the Shape Table where the shape-drawing subroutines can find it 
(this is done automatically when you use the SHLOAD subroutine to get a 
table from cassette tape). Your APPLE looks for the four hexadecimal digits 
of the table's starting address in hexadecimal locations 328 (lower two 
digits) and 329 (upper two digits). For our table's starting address of 
08 00, this would do the trick: 

328:00 08 

To protect this Shape Table from being erased by the variables in your BASIC 
program, you must also set LOMEM (the lowest memory address available to 
your program) to the address that is one byte beyond the Shape Table's last, 
or largest, address. 

It is best to set LOMEM from BASIC, as an immediate-execution command issued 
before the BASIC program is RUN. LOMEM is automatically set when you invoke 
BASIC (reset Ctrl B return) to decimal 2048 (0800, in hexadecimal). You 
must then change LOMEM to 2048 plus the number of bytes in your Shape Table 
plus one. Our Shape Table was decimal 14 bytes long, so our 
immediate-execution BASIC command would be: 

LOMEM: 2048 + 15 

Fortunately, all of this (entering the Shape Table at LOMEM, resetting LOMEM 
to protect the table, and putting the table's starting address in $328-$329) 
is taken care of automatically when you use the High-Resolution feature's 
SHLOAD subroutine to get the table from cassette tape. 
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SAVING A SHAPE TABLE 


Saving on Cassette Tape 

To save your Shape Table on tape, you must be in the Monitor and you must 
know three hexadecimal numbers: 

1) Starting Address of the table (0800, in our example) 

2) Last Address of the table (080D, in our example) 

3) Difference between 2) and 1) (000D, in our example) 

Item 3, the difference between the last address and the first address of the 
table, must be stored in hexadecimal locations 0 (lower two digits) and 1 
(upper two digits): 

0:0D 00 return 

Now you can "Write" (store on cassette) first the table length that is 
stored in locations 0 and 1, and then the Shape Table itself that is stored 
in locations Starting Address through Last Address: 

0.1W 0800.080DW 

Don't press the RETURN key until you have put a cassette in your tape 
recorder, rewound it, and started it recording (press PLAY and RECORD 
simultaneously). Now press the computer's RETURN key. 


Saving on Disk 

To save your Shape Table on disk, use a command of this form: 

BSAVE filename, A$ startingaddress , L$ tablelength 
For our example, you might type 

BSAVE MYSHAPE1 , A$ 0800, L$ 000D 

Note: the Disk Operating System (DOS) occupies the top 10. 5K of memory 
(10752 bytes decimal, or $2A00 hex); make sure your Shape Table is not in 
that portion of memory when you "boot" the disk system. 
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LOADING A SHAPE TABLE 


Loading from Cassette Tape 

To load a Shape Table from cassette tape, rewind the tape, start it playing 
(press PLAY), and (in BASIC, now) type 

CALL -11335 return 

or (if you have previously assigned the value -11335 to the variable SHLOAD) 

CALL SHLOAD return 

You should hear one "beep" when the table's length has been read 
successfully, and another "beep" when the table itself has been read. When 
loaded this way, your Shape Table will load into memory, beginning at 
hexadecimal address 08 00. LOMEM is automatically changed to the address of 
the location immediately following the last Shape-Table byte. Hexadecimal 
locations 328 and 329 are automatically set to contain the starting address 
of the Shape Table. 


Loading from Disk 

To load a Shape Table from disk, use a command of the form 
BLOAD filename 

From our previously-saved example, you would type 

BLOAD MYSHAPE1 

This will load your Shape Table into memory, beginning at the address you 
specified after M A$ M when you BSAVEd the Shape Table earlier. In our 
example, MYSHAPE1 would BLOAD beginning at address 0800. You must store the 
Shape Table's starting address in hexadecimal locations 328 and 329, 
yourself, from the Monitor: 

328:00 08 return 

If your Shape Table is in an area of memory that may be used by your BASIC 
program (as our example is), you must protect the Shape Table from your 
program. Our example lies at the low end of memory, so we can protect it by 
raising LOMEM to just above the last byte of the Shape Table. This must be 
done after invoking BASIC (reset Ctrl B return) and before RUNning our 
BASIC program. We could do this with the immediate-execution BASIC command 

LOMEM: 2048 + 15 
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FIRST USE OF A SHAPE TABLE 


You are now ready to write a BASIC program using Shape-Table subroutines 
such as DRAW and DRAW1. For a full discussion of these High-Resolution 
subroutines, see the following section, PART E. 

Remember that Page 1 graphics uses memory locations 8192 through 16383 (8K 
to 16K), and Page 2 graphics uses memory locations 16384 through 24575 (16K 
to 24K) . Integer BASIC puts your program right at the top of available 
memory; so if your APPLE contains less than 32K of memory, you should 
protect your program by setting HIMEM to 8192. This must be done after you 
invoke BASIC (reset Ctrl B return) and before RUNning your program, with the 
immediate-execution command 

HIMEM: 8192 


Here's a sample program that assumes our Shape Table has already been loaded 
from tape, using CALL SHLOAD. This program will print our defined shape, 
rotate it 5.6 degrees if that rotation is recognized (see ROT discussion, 
next section) and then repeat, each repetition larger than the one before. 

10 X0 = Y0 = COLR = SHAPE = ROT = SCALE : REM SET PARAMETERS 
20 INIT = -12288 : DRAW = -11465 : REM DEFINE SUBROUTINES 
30 WHITE =127 : BLACK = 0 : REM DEFINE COLORS 
40 CALL INIT : REM INITIALIZE HIGH-RESOLUTION SUBROUTINES 
50 SHAPE = 1 

60 X0 = 139 : Y0 = 79 : REM ASSIGN PARAMETER VALUES 
70 FOR R = 1 TO 48 

80 ROT = R 

90 SCALE = R 

100 COLR = WHITE 

110 CALL DRAW : REM DRAW SHAPE 1 WITH ABOVE PARAMETERS 
120 NEXT R : REM NEW PARAMETERS 
130 END 


To pause, and then erase each square after it is drawn, add these lines: 

114 FOR PAUSE = 1 TO 200 : NEXT PAUSE 

116 COLR = BLACK : REM CHANGE COLOR 

118 CALL DRAW : REM RE-DRAW SAME SHAPE, IN NEW COLOR 
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PART E: DRAWING SHAPES FROM A PREPARED 
SHAPE TABLE 


Before either of the two shape-drawing subroutines DRAW or DRAW1 can be 
used, a "Shape Table" must be defined and stored in memory (see PART E: 
CREATING A SHAPE TABLE), the Shape Table's starting address must be 
specified in hexadecimal locations 328 and 329 (808 and 809, in decimal), 
and the High-Resolution subroutines themselves must have been initialized by 
a CALL IN IT. 


ASSIGNING PARAMETER VALUES 


The DRAW subroutine is used to display any of the shapes defined in the 
current Shape Table. The origin or 'beginning point' for DRAWing the shape 
is specified by the values assigned to X0 and Y0, and the rest of the shape 
continues from that point. The color of the shape to be DRAWn is specified 
by the value of COLR. 

The shape number (the Shape Table's particular shape definition that you 
wish to have DRAWn) is specified by the value of SHAPE. For example, 

SHAPE = 3 

specifies that the next shape-drawing command will use the third shape 
definition in the Shape Table. SHAPE may be assigned any value (from 1 
through 255) that corresponds to one of the shape definitions in the current 
Shape Table. An attempt to DRAW a shape that does not exist (by executing a 
shape-drawing command after setting SHAPE = 4, when there are only two shape 
definitions in your Shape Table, for instance) will result in a *** RANGE 
ERR message being displayed, and the program will halt. 

The relative size of the shape to be DRAWn is specified by the value 
assigned to SCALE. For example, 

SCALE = 4 

specifies that the next shape DRAWn will be four times the size that is 
described by the appropriate shape definition. That is, each "plotting 
vector" (either a plot and a move, or just a move) will be repeated four 
times. SCALE may be assigned any value from 0 through 255, but SCALE = 0 is 
interpreted as SCALE = 256, the largest size for a given shape definition. 
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You can also specify the orientation or angle of the shape to be DRAWn, by 
assigning the proper value to ROT. For example, 

ROT = 0 

will cause the next shape to be DRAWn oriented just as it was defined, while 

ROT = 16 

will cause the next shape to be DRAWn rotated 90 degrees clockwise. The 
value assigned to ROT must be within the range 0 to 255 (although ROT=64, 
specifying a rotation of 360 degrees clockwise, is the equivalent of ROT=0). 
For SCALE =1 , only four of the 63 different rotations are recognized 
(0,16,32,48); for SCALE=2, eight different rotations are recognized; etc. 

ROT values specifying unrecognized rotations will usually cause the shape to 
be DRAWn with the next smaller recognized rotation. 


ORIENTATIONS OF SHAPE DEFINITION 


ROT = 48 (270 degrees 

clockwise rotation) 


ROT = 0 (no rotation 
from shape definition) 

* 

ROT = 32 (180 degrees 

clockwise rotation) 


ROT = 16 (90 degrees 

clockwise rotation) 


DRAWING SHAPES 


The following example program DRAWs shape definition number three, in white, 
at a 135 degree clockwise rotation. Its starting point, or origin, is at 
(140,80). 

0 X0 = Y0 = COLR = SHAPE = ROT = SCALE : REM SET PARAMETERS 
5 INIT = -12288 : DRAW = -11465 : REM DEFINE SUBROUTINES 
10 WHITE = 127 : REM DEFINE COLOR 

20 CALL INIT : REM INITIALIZE HIGH-RESOLUTION SUBROUTINES 

30 X0 = 140 : Y0 = 80 : COLR = WHITE : REM ASSIGN PARAMETER VALUES 

40 SHAPE = 3 : ROT = 24 : SCALE = 2 

50 CALL DRAW : REM DRAW SHAPE 3, DOUBLE SIZE, TURNED 135 DEGREES 

60 END 
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LINKING SHAPES 


DRAW 1 is identical to DRAW, except that the last point previously DRAWn, 
PLOTted or POSNed determines the color and the starting point for the new 
shape. X0, Y0, and COLR, need not be specified, as they will have no effect 
on DRAW 1 . However, some point must have been plotted before CALLing 
DRAW 1 , or this CALL will have no effect. 


The following example program draws "squiggles" by DRAWing a small shape 
whose orientation is given by game control #0, then linking a new shape to 
the old one, each time the game control gives a new orientation. To clear 
the screen of "squiggles," press the game-control button. 

10 X0 = Y0 = COLR = SHAPE = ROT = SCALE : REM SET PARAMETERS 

20 INIT = -12288 : DRAW = -11465 : DRAW1 = -11462 

22 CLEAR = -12274 : WHITE = 127 : REM NAME SUBROUTINES AND COLOR 

30 FULLSCREEN = -16302 : BUTN = -16287 : REM NAME LOCATIONS 

40 CALL INIT : REM INITIALIZE HIGH-RESOLUTION SUBROUTINES 

50 POKE FULLSCREEN, 0 : REM SET FULL-SCREEN GRAPHICS 

60 COLR = WHITE : SHAPE = 1 : SCALE = 5 

70 X0 = 140 : Y0 = 80 : REM ASSIGN PARAMETER VALUES 

80 CALL CLEAR : ROT = PDL(0) : CALL DRAW : REM DRAW FIRST SHAPE 

90 IF PEEK (BUTN) > 127 THEN GOTO 80 : REM PRESS BUTTON TO CLEAR SCREEN 

100 R = PDL ( 0 ) : IF (R < ROT+2) AND (R > ROT-2) THEN GOTO 90 : 

REM WAIT FOR CHANGE IN GAME CONTROL 
110 ROT = R : CALL DRAW1 : REM ADD TO "SQUIGGLE" 

120 GOTO 90 : REM LOOK FOR ANOTHER CHANGE 


After DRAWing a shape, you may wish to draw a LINE from the last plotted 
point of the shape to another fixed point on the screen. To do this, once 
the shape is DRAWn, you must first use 

CALL FIND 

prior to CALLing LINE. The FIND subroutine determines the X and Y 
coordinates of the final point in the shape that was DRAWn, and uses it as 
the beginning point for the subsequent CALL LINE. 
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The following example DRAWs a white shape, and then draws a violet LINE from 
the final plot position of the shape to the point (10, 25). 

0 X0 = Y0 = COLR = SHAPE = ROT = SCALE : REM SET PARAMETERS 
5 INIT = -12288 : LINE = -11500 : DRAW = -11402 : FIND = -11780 
10 VIOLET = 85 : WHITE = 127 : REM DEFINE SUBROUTINES AND COLORS 
20 X0 = 140 : Y0 = 80 : COLR = WHITE : REM ASSIGN PARAMETER VALUES 
30 SHAPE = 3 : ROT = 0 : SCALE = 2 

40 CALL DRAW : REM DRAW SHAPE WITH ABOVE PARAMETERS 

50 CALL FIND : REM FIND COORDINATES OF LAST SHAPE POINT 

60 X0 = 10 : Y0 = 25 : COLR = VIOLET : REM NEW PARAMETER VALUES, FOR LINE 

70 CALL LINE : REM DRAW LINE WITH ABOVE PARAMETERS 

80 END 


COLLISIONS 


Any time two or more shapes intersect or overlap, the new shape has points 
in common with the previous shapes. These common points are called points 
of "collision. " 

The DRAW and DRAW 1 subroutines return a "collision count" in the hexadecimal 
memory location $32A (810, in decimal). The collision count will be 
constant for a fixed shape, rotation, scale, and background, provided that 
no collisions with other shapes are detected. The difference between the 
"standard" collision value and the value encountered while DRAWing a shape 
is a true collision counter. For example, the collision counter is useful 
for determining whether or not two constantly moving shapes ever touch each 
other. 

110 CALL DRAW : REM DRAW THE SHAPE 

120 COUNT = PEEK(810) : REM FIND THE COLLISION COUNT 
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PART F: TECHNICAL INFORMATION 


LOCATIONS OF THE HIGH-RESOLUTION PARAMETERS 


When the high-resolution parameters are entered (line 0, say), they are 
stored — with space for their values — in the BASIC variable table, just 
above LOMEM (the LOwest MEtlory location used for BASIC variable storage). 
These parameters appear in the variable table in the exact order of their 
first mention in the BASIC program. That order must be as shown below, 
because the High-Resolution subroutines look for the parameter values by 
location only. Each parameter value is two bytes in length. The low-order 
byte is stored in the lesser of the two locations assigned. 


VARIABLE-TABLE PARAMETER LOCATIONS 


Parameter Locations beyond LOMEM 


X0 

$05, 

$06 

Y0 

$0C, 

$0D 

COLR 

$15, 

$16 

SHAPE 

$1F , 

$20 

ROT 

$27, 

$28 

SCALE 

$31, 

$32 
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VARIABLES USED WITHIN THE HIGH-RESOLUTION 
SUBROUTINES 


Variable 

Name 

Hexadecimal 

Location 

Description 

SHAPEL, SHAPER 

1A, IB 

On-the-fly shape pointer. 

HC0L0R1 

1C 

On-the-fly color byte. 

COUNTH 

ID 

High-order byte of step count for LINE 

HBASL , HBASH 

26, 27 

On-the-fly BASE ADDRESS 

HMASK 

30 

On-the-fly BIT MASK 

QDRNT 

53 

2 LSB's are rotation quadrant for DRAW 

XOL, XOH 

320, 321 

Most recent X-coordinate. Used for 
initial endpoint of LINE. Updated 
by PLOT, POSN, LINE and FIND, not DRAW 

YO 

322 

Most recent Y-coordinate (see XOL, 
XOH). 

BXSAV 

323 

Saves 6502 X-register during high- 
resolution CALLs from BASIC. 

HCOLOR 

324 

Color specification for PLOT, POSN. 

HNDX 

325 

On-the-fly byte index from BASE 
ADDRESS. 

HPAG 

326 

Memory page for plotting graphics. 
Normally $20 for plotting in Page 1 
of high-resolution display memory 
($2000-$3FFF) • 

SCALE 

327 

On-the-fly scale factor for DRAW. 

SHAPXL, SHAPXH 

328, 329 

Start of Shape Table pointer. 

COLLSN 

32A 

Collision count from DRAW, DRAW 1 . 
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SHAPE TABLE INFORMATION 


Shape Tape 


Description 


Record #1 

Record Gap 
Record #2 


A two-byte-long record that contains the length 
of record #2, Low-order first. 

Minimum of .7 seconds in length. 

The Shape Table (see below). 


SHAPE TABLE 


EXAMPLE 


Start of Table 
(Address Stored 
in $328-$329) 


0-255 

M Number of Shapes ► 

02 

Unused 


00 

Low 

) ^ Beginning of Shape # 1, ^ 1 

) Relative to Start. \ 

06 

High 

00 

Low 

\ ^ Beginning of Shape #2. ^ ( 

05 

High 

1 Relative to Start. w \ 

00 

First Byte 

\ ( 

37 

. 


8A 

. 

> ◄ Shape #1 O { 

A6 

, 

I 

EE 

Last Byte=0 

/ l 

00 

First Byte 

\ / 

32 

. 

I 

FF 

. 

> ^ Shape #2 ► { 

BB 



ID 

Last Byte=0 

) v 

00 


LOMEM — 
($4A-$4B) 


-►BASIC Variables-^ (if Table SHLOADed) ►BASIC Variables 

in in 


The address of the Shape Table's Start should be stored in locations $328 
and $329. If the SHLOAD subroutine is used to load the table, Start will be 
set to LOMEM (normally this is at $0800) and then LOMEM will be moved to one 
byte after the end of the Shape Table, automatically. 


If you wish to load a Shape Table named MYSHAPES2 from disk, beginning at 
decimal location 2048 (0800 hex), and ending at decimal location 2048 plus 
decimal 15 bytes (as in the example above), you may wish to begin your BASIC 
program as follows: 

0 D$ = ,,n : REM QUOTES CONTAIN CTRL D (D$ WILL BE ERASED BY SHAPE TABLE) 

1 PRINT D$; "BLOAD MY SHAPES 2 , A 2048" : REM LOADS SHAPE TABLE 

2 POKE 808, 2048 MOD 256 : POKE 809, 2048 / 256 : REM SETS TABLE START 

3 POKE 74, (2048 +15+1) MOD 256 : POKE 75, (2048 +15+1) / 256 

4 POKE 204, PEEK(74 ) : POKE 205, PEEK(75) : REM SETS LOMEM TO TABLE END+1 

5 X0 = Y0 = COLR = SHAPE = ROT = SCALE : REM SETS PARAMETERS 
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APPLE II MEMORY MAP FOR USING HIGH-RESOLUTION 
GRAPHICS WITH INTEGER BASIC 


Highest RAM 

Memory address: 

This is 49151 ($BFFF; 
on a 48K system 


Booting DOS 
Sets 1IIMEM here 


24576 

($6000) 


16384 

($4000)' 


8192 

($ 2000 )' 


10752 

($2A00) 

Bytes 


1 


Disk 

Operating 
System 
(if booted) 


CALL SHLOAD 
Sets LOMEM here ► 


2048 


($0800 ) w 

Lowest RAM 
Memory address: 

0000 ($ 0000 ) ► 


User's BASIC program 
Starts at HIMEM 
and builds down 


High-Resolution Graphics 
Page 2 


Invoking BASIC 
’ Sets HIMEM here 

HIMEM' s value in 
Locations 76-77 
($4C-$4D ) 


High-Resolution Graphics 
Page 1 


BASIC Variables 
Start at LOMEM 
and build up 


End + 1 


r 


Shape Table 
(if SHLOADed) 


Start 


Integer BASIC System use: 
Low-resolution graphics 
and Text screen, etc. 


Invoking BASIC 
Sets LOMEM here 

LOMEM' s value in 
Locations 74-75 
($4A-$4B ) 


Unfortunately, there is no convention for mapping memory. This map shows 
the highest (largest) address at the top, lowest (smallest) address at the 
bottom. The maps of Shape Tables that appear on other pages show the 
Starting address (lowest and smallest) at the top, the Ending address 
(highest and largest) at the bottom. 
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PART G: COMMENTS 


1. Using memory Page 1 for high-resolution graphics erases everything in 
memory from location 8192 ($2000 hex) to location 16383 ($3FFF) . If the top 
of your system's memory is in this range (as it will be, if you have a 16K 
system). Integer BASIC will normally put your BASIC program exactly where it 
will be erased by INIT. You must protect your program by setting HIMEM 
below memory Page 1, after invoking BASIC (reset Ctrl B return) and before 
RUNning your program: use this immediate-execution command: 

HIMEM: 8192 return 

2. Using memory Page 2 for high-resolution graphics erases memory from 
location 16384 ($4000) to location 24575 ($5FFF). If yours is a 24K system, 
this will erase your BASIC program unless you do one of the following: 

a) never use Page 2 for graphics; or 

b) change HIMEM to 8192, as described above. 

3. The picture is further confused if you are also using an APPLE disk with 
your system. The Disk Operating System (DOS), when booted, occupies the 
highest 10. 5K ($2A00) bytes of memory. HIMEM is moved to just below the 
DOS. Therefore, if your system contains less than 32K of memory, the DOS 
will occupy memory Page 1 and Page 2. In that case, you cannot use the 
High-Resolution graphics with the DOS intact. An attempt to do so will 
erase all or part of the DOS. A 32K system can use only Page 1 for graphics 
without destroying the DOS, but HIMEM must be moved to location 8192 as 
described above. 48K systems can usually use the DOS and both 
high-resolution memory pages without problems. 

4. If you loaded your Shape Table starting at LOMEM in location 2048 
($0800), from disk or from tape without using SHLOAD, Integer BASIC will 
erase the Shape Table when it stores the program variables. To protect your 
Shape Table, you must move LOMEM to one byte beyond the last byte of the 
Shape Table, after invoking BASIC and before using any variables. SHLOAD 
does this automatically, but you can use this immediate-execution command: 

LOMEM: 2048 + tablelength + 1 

where tablelength must be a number, not a variable name. Some programmers 
load their Shape Tables beginning in location 3048 ($0BE8). That leaves a 
safe margin of 1000 bytes for variables below the Shape Table, and at least 
5000 bytes (if HIMEM: 8192) above the table for their BASIC program. 

5. CALLing an undefined or accidentally misspelled variable name is usually 
a CALL to location zero (the default value of any undefined variable). This 
CALL may cause unpredictable and unwelcome results, depending on the 
contents of location zero. However, after you execute this BASIC command: 

POKE 0, 96 

an accidental CALL to location zero will cause a simple jump back to your 
BASIC program, with no damage. 
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APPENDIX! 

SOURCE ASSEMBLY 

LISTINGS 


66 

High-Resolution Graphics 

$D000-$D3FF 

76 

Renumber 

$D400-$D4BB 

79 

Append 

$D4BC-$D 4D4 

80 

Relocate 

$D4DC-$D52D 

82 

Tape Verify (BASIC) 

$D535-$D553 

83 

Tape Verify (6502 Code & Data) 

$D554-$D 5AA 

84 

RAM Test 

$D5BC-$D691 

87 

Music 

$D71 7-$D7F8 
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1 »**#«-»**#****-:( 


2 * * 

3 * APPLF-II HI -RESOLUTION * 

4 * GRAPHICS SUBROUTINES * 

5 * * 

6 * BY WOZ 9/13/77 * 

7 * * 

8 * ALL RIGHTS RESERVED * 

9 * * 


10 ******•»■■»•*** *■»■*■» •»****■»***■«•* 


DCOO A9 20 
DC02 8D 26 03 


12 

* HI -RES EQUATES 

13 

SHAPEL 

EQU 

$1A POINTER TO 

14 

SHAPEH 

EQU 

$1B SHAPE LIST 

15 

HC0L0R1 

1 EQU 

$1C RUNNING COLOR MASK 

16 

COUNTH 

EQU 

$1D 

17 

HBASL 

EQU 

$26 BASE ADR FOR CURRENT 

18 

HBASH 

EQU 

$27 HI-RES PLOT LINE. A 

19 

HMASK 

EQU 

$30 

20 

AIL 

EQU 

$3C MONITOR Al. 

21 

A1H 

EQU 

$3D 

22 

A2L 

EQU 

$3E MONITOR A2. 

23 

A2H 

EQU 

$3F 

24 

LOMEML 

EQU 

$4A BASIC 'START OF VARS'. 

25 

LOMEMH 

EQU 

$4B 

26 

DXL 

EQU 

$50 DELTA-X FOR HI. IN, SHAPE. 

27 

DXH 

EQU 

$51 

28 

SHAPEX 

EQU 

$51 SHAPE TEMP. 

29 

DY 

EQU 

$52 DELTA-Y FOR HLIN, SHAPE. 

30 

QDRNT 

EQU 

$53 ROT QUADRANT (SHAPE). 

31 

EL 

EQU 

$54 ERROR FOR HLIN. 

32 

EH 

EQU 

$55 

33 

PPL 

EQU 

$CA BASIC START OF PROG PTR. 

34 

PPH 

EQU 

$CB 

35 

PVL 

EQU 

$CC BASIC END OF VARS PTR. 

36 

PVH 

EQU 

$CD 

37 

ACL 

EQU 

$CE BASIC ACC. 

38 

ACH 

EQU 

$CF 

39 

XOL 

EQU 

$320 PRIOR X-COORD SAVE 

40 

XOH 

EQU 

$321 AFTER HLIN OR HPLOT. 

41 

YO 

EQU 

$322 HLIN, HPLOT Y-COORD SAVE. 

42 

BXSAV 

EQU 

$323 X-REG SAVE FOR BASIC. 

43 

HCOLOR 

EQU 

$324 COLOR FOR HPLOT, HPOSN 

44 

HNDX 

EQU 

$325 HORIZ OFFSET SAVE. 

45 

HPAG 

EQU 

$326 HI-RES PAGE ($20 NORMAL) 

46 

SCALE 

EQU 

$327 SCALE FOR SHAPE, MOVE. 

47 

SHAPXL 

EQU 

$328 START OF 

48 

SHAPXH 

EQU 

$329 SHAPE TABLE. 

49 

COLLSN 

EQU 

$32A COLLISION COUNT. 

50 

HIRES 

EQU 

$C057 SWITCH TO HI-RES VIDEO 

51 

MIXSET 

EQU 

$C053 SELECT TEXT/GRAPHICS MI) 

52 

TXTCLR 

EQU 

$C050 SELECT GRAPHICS MODE. 

53 

MEMFUL 

EQU 

$E36B BASIC MEM FULL ERROR. 

54 

RNGERR 

EQU 

$EL68 BASIC RANGE ERROR. 

55 

ACADR 

EQU 

$F 1 IE 2-BYTE TAPE READ SETUP. 

56 

RD2BIT 

EQU 

$FCFA TWO-EDGE TAPE SENSE. 

57 

READ 

EQU 

$FEFD TAPE READ (A1.A2). 

58 

READX1 

EQU 

$FF02 READ WITHOUT HEADER. 

60 

* HIGH RESOLUTION GRAPHICS INITS 

61 

62 

* 

* ROM VERSION $D000 TO $D3FF 

63 

64 

* 

ORG 

$D000 

65 


OBJ 

$A000 

66 

SETHRL 

LDA 

#$20 IN IT FOR $2000-3FFF 

67 


STA 

HPAG HI-RES SCREEN MEMORY. 
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D005 AD 57 CO 
D008 AD 53 CO 
DOOB AD 50 CO 
DOOE A9 00 
D010 85 1C 
D0 1.2 AD 26 03 
DO 15 85 13 
DO 17 AO 00 
DO 19 84 1A 
DO IB A5 1C 
DO ID 91 1A 
DO IF 20 A2 DO 
D022 C8 
D023 DO F6 
D025 E6 IB 
D027 A5 IB 
D029 29 IF 
D02B DO EE 
D02D 60 


D02E 

8D 

22 03 

D031 

8E 

20 03 

D034 

8C 

21 03 

D037 

48 


D038 

29 

CO 

D03A 

85 

26 

D03C 

4A 


D03D 

4A 


DOOE 

05 

26 

D040 

85 

26 

DO-12 

68 


DQ43 

85 

27 

DO'S 

OA 


DO'; 6 

OA 


DO'; 7 

OA 


D048 

26 

27 

DO'; A 

OA 


DO -IB 

26 

27 

DO -ID 

OA 


D04E 

66 

26 

D050 

A5 

27 

D052 

29 

IF 

D054 

OD 

26 03 

DO 5 7 

85 

27 

D059 

8A 


D05A 

CO 

00 

D05C 

FO 

05 

D05E 

AO 

23 

D060 

69 

04 

D062 

C8 


D063 

E9 

07 

D065 

BO 

FB 

D067 

8C 

25 03 

D06A 

AA 


D06B 

BD 

EA DO 

D06E 

85 

30 

D070 

98 


D07 1 

4A 



D072 AD 24 03 
D075 85 1C 
D077 BO 29 
D079 60 
D07A 20 2E DO 
D07D A5 1C 
D07F 51 26 
D031 25 30 
D033 51 26 
D035 91 26 
D037 60 
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LDA 

69 


LDA 

70 


LDA 

71 

HCLR 

LDA 

72 

BKGNDD 

STA 

73 

BKGND 

LDA 

74 


STA 

75 


LDY 

76 


STY 

77 

BKGND1 

LDA 

78 


STA 

79 


JSR 

80 


INY 

81 


3NF 

82 


INC 

83 


LDA 

84 


AND 

85 


BNP 

86 


RTS 


HIRES SET HIRES DISPLAY MODE 
MIXSET WITH TEXT AT BOTTOM. 
TXTCLR SET GRAPHICS DISPLAY MODE 
#$0 

HC0L0R1 SET FOR BLACK BKGNO. 

HP AG 

SHAPEH INIT HI -RES SCREEN MEM 
#$0 FOR CURRENT PAGE, NORMALLY 
SHAPEI $2000-3FFF OR $4000-5FFF 
HC0L0R1 
(SHAPED, Y 

CSHFT2 (SHAPEL, H) WILL SPECIFY 
32 SEPARATE PAGES. 

BKGND1 THROUGHOUT THE INIT 

SHAPEH 

SHAPEH 

#$1F TEST FOR DONE- . 

BKGND1 


Hl-i 


88 

89 HPOSN 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 HPOSN 1 

119 HPOSN? 

120 
121 
122 
1?3 

124 

125 

126 

127 

128 HP0SN3 

129 

130 

131 HPLOT 

132 HPLOT 1 

133 

134 

135 

136 

137 

138 * 


RES 

STA 

STX 

STY 

PHA 

AND 

STA 

LSR 

LSR 

ORA 

STA 

PLA 

STA 

ASL 

A3L 

ASL 

ROL 

ASL 

ROL 

ASL 

ROR 

LDA 

AND 

ORA 

STA 

TXA 

CPY 

BEQ 

LDY 

ADC 

INY 

SBC 

BCS 

STY 

TAX 

LDA 

STA 

TYA 

LSR 

LDA 

STA 

BCS 

RTS 

JSR 

LDA 

EOR 

AND 

EOR 

STA 

RTS 


GRAPHICS POSITION AND PLOT SUBRS 
YO ENTER WITH Y IN A-REG, 

XOL XL IN X-REG, 

XOH AND XH IN Y-REG. 

#$C0 

HBASL FOR Y-COORD = OOABCDEF. 

; CALCULATES BASE ADDRESS 

; IN HBASL, HBASH FOR 

HBASL ACCESSING SCREEN MEM 

H3ASL VIA (HBASL), Y ADDRESSING MODE 

HBASH 

; CALCULATES 
i HRASH = PPPFGHCD, 

> HR ASL = EABABOOO 
HBASH 

• WHERE PPP=001 FOR $2000-3FFF 
HBASH SCREEN MEM RANGE AND 
i PPP=010 FOR $4000— 7FFF 
HBASL (GIVEN Y-COORD=ABCDEFGH ) 

HBASH 

#$1F 

HPAG 

HBASH 

DIVIDE XO BY 7 FOR 
#$0 INDEX FROM BASE ADR 
HP0SN2 (QUOTIENT) AND BIT 
#$23 WITHIN SCREEN MEM BYTE 
#$4 (MASK SPEC'D BY REMAINDER) 

#$7 SUBTRACT OUT SEVENS 
HP0SN1 

liNOX WORKS FOR XO FROM 

0 TO 279, LOW-ORDER 
MSKT3L-249, X BYTE IN X-REG, 

! 'MASK HIGH IN Y-REG ON ENTRY 

1 IF ON ODD BYTE (CARRY SET) 

HCOLOR THEN ROTATE HCOLOR ONE 
HC0L0R1 BIT FOR 180 DEGREE SHIFT 
CSHFT2 PRIOR TO COPYING TO HCOLOR 1. 

HPOSN 

HCOLOR 1 CALC BIT POSN IN HBASL, H 
(HBASL), Y HNDX, AND HMASK FROM 
HMASK Y-COGRD IN A-REG, 

(HBASL), Y X-COORD IN X, Y-REGS. 

(HBASL), Y FOR ANY 'L' BITS OF HMASK 
SUBSTITUTE CORRESPONDING 
BIT OF HCOLOR 1. 
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140 * HI-RES GRAPHICS L,R,U,D SUBRS 
D038 10 24 141 LFTRT BPL RIGHT USE SIGN FOR LFT/RT SELECT 


D03A 

A5 

30 


142 

LEFT 

LDA 

D03C 

4A 



143 


LSR 

D03D 

BO 

05 


144 


BCS 

D03F 

49 

CO 


145 


EOR 

D091 

85 

30 


146 

LR1 

STA 

D0?3 

60 



147 


RTS 

D094 

88 



148 

LEFT 1 

DEY 

D095 

10 

02 


149 


SPL 

DO? 7 

AO 

27 


150 


LDY 

D099 

A9 

CO 


151 

LEFT2 

LDA 

D09B 

85 

30 


152 

NEWNDX 

STA 

D09D 

8C 

25 

03 

153 


STY 

DOAO 

A5 

1C 


154 

CSHIFT 

LDA 

D0A2 

OA 



155 

CSHFT2 

ASL 

D0A3 

C 9 

CO 


156 


CMP 

DO A 5 

10 

06 


157 


BPL 

DO A 7 

A5 

1C 


158 


LDA 

D0A9 

49 

7F 


159 


EOR 

DOAB 

85 

1C 


160 


STA 

DOAD 

60 



161 

RTSi 

RTS 

DOAE 

A5 

30 


162 

RIGHT 

LDA 

DOBO 

OA 



163 


ASL 

DOB 1 

49 

80 


164 


EOR 

D0B3 

30 

DC 


165 


BMI 

DOB 5 

A9 

81 


166 


LDA 

DOB 7 

C8 



167 


I NY 

D0B8 

CO 

28 


168 


CPY 

DOBA 

90 

DF 


169 


BCC 

DOBC 

AO 

00 


170 


LDY 

DOBE 

BO 

DB 


171 


BCS 





173 

* L, R, 

U, D, 

DOCO 

ie 



174 

LRUDX1 

CLC 

DOC 1 

A5 

51 


175 

LRUDX2 

LDA 

DOC 3 

29 

04 


176 


ANH 

DOC 5 

FO 

27 


177 


BEQ 

DOC 7 

A9 

7F 


178 


LDA 

D0C9 

25 

30 


179 


AND 

DOCB 

31 

26 


180 


AND 

DOCD 

DO 

IB 


181 


ENF 

DOCF 

EE 

2A 

03 

182 


INC 

D0D2 

A9 

7F 


183 


LDA 

D0D4 

25 

30 


184 


AND 

D0D6 

10 

12 


185 


BPL 

D0D8 

18 



186 

LRUD1 

CLC 

D0D9 

A5 

51 


187 

LRUD2 

LDA 

DODB 

29 

04 


188 


AND 

DODD 

FO 

OF 


189 


BEO 

DODF 

B 1 

26 


190 


LDA 

DOE 1 

45 

1C 


191 


EOR 

D0E3 

25 

30 


192 


AND 

D0E5 

DO 

03 


193 


ENt 

DOE 7 

EE 

2A 

03 

194 


INC 

DOEA 

51 

26 


195 

LRUD3 

EOR 

DOEC 

91 

26 


196 


STA 

DOEE 

A5 

51 


197 

LRUD4 

LDA 

DOFO 

65 

53 


198 


ADC 

D0F2 

29 

03 


199 


AND 





200 

EQ3 

EGU 

DOF 4 

C9 

02 


201 


CMP 

DOr 6 

6A 



202 


ROR 

D0F7 

BO 

8F 


203 

LRUD 

BCS 

DOF 9 

30 

30 


204 

UP DWN 

BMI 

DOFB 

ie 



205 

UP 

CLC 

DOF C 

A5 

27 


206 


LDA 

DOFE 

2C 

EA 

D1 

207 


B I 1 

D 1 0 1 

DO 

22 


208 


BNE 

D103 

06 

26 


209 


ASL 


HMASK 

; SHIFT LOW-ORDER 
LEFT 1 7 BITS OF HMASK 
#$C0 ONE BIT TO LSB. 

HMASK 

DECR HORIZ INDEX. 

LEFT2 

#$27 WRAP AROUND SCREEN. 

#$C0 NEW HMASK, RIGHTMOST 
HMASK DOT OF BYTE. 

HNMX UPDATE HORIZ INDEX. 

HC0L0R1 

; ROTATE LOW-ORDER 
#$C0 7 BITS OF HC0L0R1 
RTS 1 ONE BIT POSN. 

HC0L0R1 

#$7F ZXYXYXYX -> ZYXYXYXY 
HC0L0R1 

HMASK 

; SHIFT LOW-ORDER 
#$80 7 BITS OF HMASK 
LR1 ONE BIT TO MSB. 

#$81 

NEXT BYTE. 

#$28 

NEWNDX 

#$0 WRAP AROUND SCREEN IF >279 
NEWNDX ALWAYS TAKEN. 

SUBROUTINES. 

NO 90 DEG ROT ( X-OR ) . 

SHAPEX 

#$« IF B2=0 THEN NO PLOT. 

LRUD4 

#$7F FOR EX-OR INlO SCREEN MEM 
HMASK 

< HBASL > , Y SCREEN BIT SET? 

LRUD3 

COLLSN 

#$7F 

HMASK 

LRUD3 ALWAYS TAKEN. 

NO 90 DEG ROT. 

SHAPEX 

#*4 IF B2=0 THEN NO PLOT. 

LRUD4 
(HBASL), Y 

HC0L0R1 SET HI-RES SCREEN BIT 
HMASK TO CORRESPONDING HC0L0R1 
LRUD3 IF BIT OF SCREEN CHANGES 
COLLSN THEN INCR COLLSN DETECT 
(HHASL), Y 
(HBASL), Y 

SHAPEX ADD GDRNT TO 
QDRNT SPECIFIED VECTOR 
#$3 AND MOVE LFT , RT, 

*-l UP, OR DWN BASED 
#$2 ON SIGN AND CARRY. 

LFTRT 

D0WN4 SIGN FOR UP/DWN SELECT 

HBASH CALC BASE ADDRESS 
EQ1C (ADR OF LEFTMOST BYTE) 

UP4 FOR NEXT LINE UP 
HBASL IN (HBASL, HBASH) 
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D105 

BO 

1A 


210 

BCS 

UP 2 WITH 192-LINE WRAPAROUND 

D107 

2C 

F3 

DO 

211 

BIT 

EG3 

D10A 

FO 

05 


212 

BEG 

UP1 

DIOC 

69 

IF 


213 

ADC 

#$1F **#* BIT MAP *■**•* 

DlOE 

38 



214 

SEC 


DlOF 

BO 

12 


215 

BCS 

UP 3 FOR ROW = ABCDEFGH/ 

Dill 

69 

23 


216 UP1 

ADC 

#$23 

D113 

48 



217 

PHA 


D114 

A5 

26 


218 

LDA 

HBASL HBASL = EABABOOO 

D116 

69 

BO 


219 

ADC 

#$B0 HBASH = PPPFGHCD 

D118 

BO 

02 


220 

BCS 

UP 5 

D11A 

69 

FO 


221 

ADC 

#$F0 WHERE PPP=001 FOR PRIMARY 

D11C 

85 

26 


222 UP 5 

STA 

HBASL HI-RES PAGE ( $2000-$3FFF > 

DUE 

68 



223 

PLA 


Dll F 

BO 

02 


224 

BCS 

UP3 

D121 

69 

IF 


225 UP2 

ADC 

#$1F 

D123 

66 

26 


276 UP3 

ROR 

HBASL 

D125 

69 

FC 


227 UP4 

ADC 

#$FC 

D127 

85 

27 


278 UP DUN 1 

STA 

HBASH 

D129 

60 



229 

RTS 


D12A 

18 



230 DOWN 

CLC 


D12B 

A5 

27 


231 D0WN4 

LPA 

HBASH 

D12D 

69 

04 


232 

ADC 

#$4 CALC BASE ADR FOR NEXT LINE 





233 EQ4 

EQ'J 

*-l DOWN TO (HBASL, HBASH) 

D12F 

2C 

EA 

D1 

234 

BIT 

EQ1C 

D132 

DO 

F3 


235 

BNE 

UPDWN1 

D134 

06 

26 


236 

ASL 

HBASL WITH 192-LINE WRAPAROUND 

D136 

90 

19 


237 

BCC 

D0WN1 

D138 

69 

EO 


238 

ADC 

#$E0 

D13A 

18 



239 

CLC 


D13B 

2C 

2E 

D1 

240 

BIT 

EQ4 

D13E 

FO 

13 


241 

BEG 

D0WN2 

D140 

A5 

26 


242 

LDA 

HBASL 

D142 

69 

50 


243 

ADC 

#$50 

D144 

49 

FO 


244 

EOR 

#$F0 

DH6 

FO 

02 


245 

BEG 

D0WN3 

D148 

49 

FO 


246 

EOR 

#$F0 

D14A 

85 

26 


247 D0WN3 

STA 

HBASL 

D14C 

AD 

26 

03 

248 

LDA 

HP AG 

D14F 

90 

02 


249 

BCC 

D0WN2 

D151 

69 

EO 


250 D0WN1 

ADC 

#$E0 

D153 

66 

26 


251 D0NN2 

ROR 

HBASL 

D155 

90 

DO 


252 

BCC 

UPDWN1 





254 * HI-RES GRAPHICS LINE DRAW SUBRS 

D157 

48 



255 HLINRL 

PHA 


D158 

A9 

00 


256 

LDA 

#$0 SET ( XOL, XOH ) AND 

D15A 

8D 

20 

03 

257 

STA 

XOL YO TO ZERO FOR 

D15D 

8D 

21 

03 

258 

STA 

XOH REL LINE DRAW 

D160 

8D 

22 

03 

259 

STA 

YO CDX, DY). 

D163 

68 



260 

PLA 


D164 

48 



261 HL IN 

PHA 

ON ENTRY 

D165 

38 



262 

SEC 

XL: A-REG 

D166 

ED 

20 

03 

263 

SBC 

XOL XH; X-REG 

D169 

48 



264 

PHA 

Y: Y-REG 

D16A 

8A 



265 

TXA 


D16B 

ED 

21 

03 

266 

S3C 

XOH 

D16E 

85 

53 


267 

STA 

QDRNT CALC ABS(X-XO) 

D170 

BO 

OA 


268 

BCS 

HLIN2 IN ( DXL, DXH ) 


69 



D172 

68 



269 


PLA 

D173 

49 

FF 


270 


EOR 

D175 

69 

01 


271 


ADC 

D177 

48 



272 


PHA 

D178 

A9 

00 


273 


LDA 

D17A 

E5 

53 


274 


SBC 

D17C 

85 

51 


275 

HLIN2 

STA 

D17E 

85 

55 


276 


STA 

D180 

68 



277 


PLA 

D1S1 

85 

50 


278 


STA 

D183 

85 

54 


279 


STA 

D1S5 

68 



280 


PLA 

D136 

8D 

20 

03 

281 


STA 

D139 

8E 

21 

03 

282 


STX 

DISC 

98 



283 


TYA 

D13D 

18 



284 


CLC 

D18E 

ED 

22 

03 

285 


SBC 

D191 

90 

04 


286 


BCC 

D193 

49 

FF 


287 


EOR 

D195 

69 

FE 


288 


ADC 

D197 

85 

52 


289 

HLIN3 

STA 

D199 

8C 

22 

03 

290 


STY 

D19C 

66 

53 


291 


ROR 

D19E 

38 



292 


SEC 

D19F 

E5 

50 


293 


SBC 

D1A1 

AA 



294 


TAX 

D1A2 

A9 

FF 


295 


LDA 

D1A4 

E5 

51 


296 


SBC 

D1A6 

85 

ID 


297 


STA 

D1A8 

AC 

25 

03 

298 


LDY 

D1AB 

BO 

05 


299 


BCS 

D1AD 

OA 



300 

MOVEX 

ASL 

D1AE 

20 

88 

DO 

301 


JSR 

DIB 1 

38 



302 


SEC 

D1B2 

A5 

54 


303 

M0VEX2 

LDA 

D1B4 

65 

52 


304 


ADC 

D1B6 

85 

54 


305 


STA 

D1B8 

A5 

55 


306 


LDA 

D1BA 

E9 

00 


307 


SBC 

D1BC 

85 

55 


308 

HCOUNT 

STA 

D1BE 

B 1 

26 


309 


LDA 

D1CO 

45 

1C 


310 


EOR 

D1C2 

25 

30 


31 1 


AND 

D1C4 

51 

26 


312 


EOR 

D1C6 

91 

26 


313 


STA 

D1C8 

E8 



314 


I NX 

D1C9 

DO 

04 


315 


BNP 

D1CB 

E6 

ID 


316 


INC 

D1CD 

FO 

6B 


317 


BEQ 

D1CF 

A5 

53 


318 

HLIN4 

LDA 

D1D1 

BO 

DA 


319 


BCS 

D1D3 

20 

F9 

DO 

320 


JSR 

D1D6 

18 



321 


CLC 

D1D7 

A5 

54 


322 


LDA 

D1D9 

65 

50 


323 


ADC 

D1DB 

05 

54 


324 


STA 

D1DD 

A5 

55 


325 


LDA 

D1DF 

65 

51 


326 


ADC 

DIF 1 

50 

D9 


327 


BVC 

D1E3 

81 



328 

MSKTBL 

HEX 

D1E4 

82 

84 

88 

329 


HEX 

D1E7 

90 

AO 


330 


HEX 

D1E9 

CO 



331 


HEX 

DIE A 

1C 



332 

EQ1C 

HEX 

D1EB 

FF 

FE 

FA 

333 

COS 

HEX 

D1F4 

Al 

8D 

78 

334 


HEX 


#*FF X DIR TO SIGN BIT 
#*1 OF QDRNT. 

0=R I GHT (DX POS) 

#$0 1=LF.P T (DX NEG) 

QDRNT 

DXH 

EH INIT (EL/ EH) TO 
ARS(X-XO) 

DXL 

EL 

XOL 

XOH 


YO CALC -ABS( Y-O)— 1 
HLIN3 IN DY. 

#$FF 

#$FE 

DY ROTATE Y DIR INTO 
YO QDRNT SIGN BIT 
QDRNT (0=UP, l=DOWN) 

DXL INIT (COUNTL, COUNTH). 

TO - ( DEL TX+DELTY+1 ) 

#$FF 

DXH 

COUNTH 

HNDX HORIZ INDEX 

M0VEX2 ALWAYS TAKEN. 

i MOVE IN X-DIR. USE 

LFTRT QDRNT B6 FOR LFT/RT SELECT 

EL ASSUME CARRY SET. 

DY (EL/ EHJ-DELTY TO (EL/ EH) 

EL NOTE: DY IS (-DELTY)-l 
EH CARRY CLR IF (EL/ EH) 

#$0 GOES NEG. 

EH 

(HRASL).Y SCREEN BYTE. 

HCOLOR1 PLOT DOT OF HCOLOR1. 
i-IMASK CURRENT BIT MASK. 

(HRASL)z Y 
( HBASL ) i Y 

DONE (DEI TX+DELTY) 

HLIN4 DOTS? 

COUNTH 

RTS2 YES/ RETURN. 

QDRNT FOR DIRECTION TEST 
MOVEX IF CAR SET, (EL, EH) POS 
UPDWN IF CLR, NEG, MOVE YDIR 

EL (El , EH)+DELTX 
DXL TO (EL, EH). 

EL 

EH CAR SET IF (EL, EH) GOES POS 
DXH 

HCOUNT ALWAYS TAKEN. 

81 LEFTMOST BIT OF BYTE. 

82, 84, 88 
90, AO 

CO RIGHTMOST 3 IT OF BYTE. 

1C 

FP, FE, FA, F4, EC, El, D4, C5, B4 
Al, 8D, 78, 61, 49, 31, 18, FF 
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336 * HI-RES GRAPHICS COORDINATE RESTORE SUBR 


D1FC 

A5 

26 


337 HFIND 

LDA 

HBASL 

D1FE 

OA 



338 

ASL 

; CONVERTS BASE ADR 

Dir-F 

A5 

27 


339 

LDA 

HBASH TO Y-COORD. 

D201 

29 

03 


340 

AND 

#$3 

D203 

2A 



341 

ROL 

; FOR HBASL = EABABOOO 

D204 

05 

26 


342 

ORA 

HBASL HBASH = PPPFGHCD 

D206 

OA 



343 

ASL 


D207 

OA 



344 

ASL 

; GENERATE 

D208 

OA 



345 

ASL 

; Y-COORD = ABCDEFGH 

D209 

8D 

22 

03 

346 

STA 

YO 

D20C 

A5 

27 


347 

LDA 

HBASH (PPP=SCREEN PAGE, 

D20E 

4A 



348 

LSR 

; NORMALLY 001 FOR 

D20F 

4A 



349 

LSR 

; *2000-*3FFF 

D210 

29 

07 


350 

AND 

#$7 HI-RES SCREEN) 

D212 

OD 

22 

03 

351 

ORA 

YO 

D215 

8D 

22 

03 

352 

STA 

YO CONVERTS HNDX (INDEX 

D218 

AD 

25 

03 

353 

LDA 

HNDX FROM BASE ADR) 

D21B 

OA 



354 

ASL 

i AND HMASK (BIT 

D21C 

6D 

25 

03 

355 

ADC 

HNDX MASK) TO X-COORD 

D21F 

OA 



356 

ASL 

i IN ( XOL, XOH ) 

1)220 

AA 



357 

TAX 

(RANGE *0-$133) 

D221 

CA 



358 

DEX 


D222 

A5 

30 


359 

LDA 

HMASK 

D224 

29 

7F 


360 

AND 

#$7F 

D276 

E8 



361 HFIND1 

I NX 


D227 

4A 



362 

LSR 


D228 

DO 

FC 


363 

ENE 

HFIND1 

D22A 

8D 

21 

03 

364 

STA 

XOH 

D22D 

8A 



365 

TXA 


D22E 

18 



366 

CLC 

CALC HNDX*7 + 

D22F 

6D 

25 

03 

367 

ADC 

HNDX LOG (BASE 2) HMASK. 

D232 

90 

03 


368 

BCC 

HFIND2 

D234 

EE 

21 

03 

369 

INC 

XOH 

D237 

8D 

20 

03 

370 HFIND2 

STA 

XOL 

D23A 

60 



371 RTS2 

RTS 



373 » HI-RES GRAPHICS SHAPE DRAW SUBR 

374 * 

375 * SHAPE DRAW 

376 * R = 0 TO 63 

377 * SCALF FACTOR USED ( l=NORMAL ) 

378 * 

D23B 86 1A 379 DRAW 8TX SHAPE*. DRAW DEFINITION 

D23D 84 IB 380 STY SHAPEH POINTER. 

D23F AA 381 DRAW1 TAX 

4A 382 LSR j ROT ($0-$3F) 

D241 4A 383 LSR 

D?/ < 2 4A 384 LSR f QDRNT 0=UP, 1=RT, 

D243 4A 385 LSR ; 2=DWN, 3=LFT. 

D244 85 53 386 STA QDRNT 

D246 8A 387 TXA 

D247 29 OF 388 AND #$F 

D249 AA 389 TAX 

D24A BC EB D1 390 LDY COS, X SAVE COS AND SIN 

D24D 84 50 391 STY DXL VALS IN DXL AND DY. 

D24F 49 OF 392 EGR #$F 

D251 AA 393 TAX 

D252 BC EC D1 394 LDY C0S+1,X 

D255 C8 395 INY 

D256 84 52 396 STY DY 

0258 AC 25 03 397 DRAW2 LDY HNDX 3YTE INDEX FROM 

D25B A2 00 398 LDX #$0 HI-RES BASE ADR. 

D25D 8E 2A 03 399 STX COLLSN CLEAR COLLISION COUNT. 

D260 A1 1A 400 LDA (SHAPEL, X) 1ST SHAPE DEF BYTE. 
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D262 

85 

51 


401 

DRAW3 

STA 

SHAPEX 

D264 

A2 

80 


402 


LDX 

#$80 

D266 

86 

54 


403 


STX 

El EL, EH FOR FRACTIONAL 

D268 

86 

55 


404 


STX 

EH L, R, U, D VECTORS. 

D26A 

AE 

27 

03 

405 


LDX 

SCALE SCALE FACTOR. 

D26D 

A5 

54 


406 

DRAW4 

LDA 

EL 

D26F 

38 



407 


SEC 

IF FRAC COS OVFL 

D270 

65 

50 


408 


ADC 

DXL THEN MOVE IN 

D272 

85 

54 


409 


STA 

El SPECIFIED VECTOR 

D274 

90 

04 


410 


BCC 

DRAW5 DIRECTION. 

D2/6 

20 

D8 

DO 

411 


JSR 

LRUD1 

D2/9 

18 



412 


CLC 


D27A 

A5 

55 


413 

DRAWS 

LDA 

EH IF FRAC SIN OVFL 

D27C 

65 

52 


414 


ADC 

DY THEN MOVE IN 

D27E 

85 

55 


415 


STA 

EH SPECIFIED VECTOR 

D230 

90 

03 


416 


BCC 

DRAW6 DIRECTION +90 DEG. 

D232 

20 

D9 

DO 

417 


JSR 

LRUD2 

D235 

CA 



418 

DRAW6 

DEX 

LOOP ON SCALE 

D236 

DO 

E5 


419 


BNE 

DRAW4 FACTOR. 

D238 

A5 

51 


420 


LDA 

SHAPEX 

D23A 

4A 



421 


LSR 

; NEXT 3-BIT VECTOR 

D23B 

4A 



422 


LSR 

; OF SHAPE DEF. 

D28C 

4A 



423 


LSR 


D23D 

DO 

D3 


424 


BNE 

DRAW3 NOT DONE THIS BYTE. 

D23F 

E6 

1A 


425 


INC 

SHAPEL 

D271 

DO 

02 


426 


BNE 

DRAW7 NEXT BYTE OF 

D293 

E6 

IB 


427 


INC 

SHAPEH SHAPE DEFINITION. 

D2?5 

A1 

1A 


428 

DRAW7 

LDA 

(SHAPEL, X) 

D2?7 

DO 

C9 


429 


BNE 

DRAW3 DONE IF ZERO. 

D299 

60 



430 


RTS 






432 

* Hi- 

RES GRAPHICS SHAPE EX-OR SUBR 





433 

tt 







434 

* EX-OR SHAPE INTO SCREEN. 





435 

tt 







436 

* ROT 

= 0 TO 3 (QUADRANT ONLY) 





437 

* SCALE IS 

USED 





438 

tt 



D29A 

86 

1A 


439 

XDRAW 

STX 

SHAPEL SHAPE DEFINITION 

D29C 

84 

IB 


440 


STY 

SHAPEH POINTER. 

D29E 

AA 



441 

XDRAW1 

TAX 


D29F 

4A 



442 


LSR 

i ROT ($0-*3F> 

D2A0 

4A 



443 


LSR 


D2A1 

4A 



44 4 


LSR 

i QDRNT 0=UP, 1 =RT, 

D2A2 

4A 



445 


LSR 

i 2=DWN, 3=LFT. 

D2A3 

85 

53 


446 


STA 

QDRNT 

D2A5 

8A 



447 


TXA 


D2A6 

29 

OF 


448 


AND 

#$F 

D2A8 

AA 



449 


TAX 


D2A9 

BC 

EB 

D1 

450 


LDY 

COS, X SAVE COS AND SIN 

D2AC 

84 

50 


451 


STY 

DXL VALS IN DXL AND DY, 

D2AE 

49 

OF 


452 


EOR 

#$F 

D2B0 

AA 



453 


TAX 


D2B 1 

BC 

EC 

D1 

454 


LDY 

COS+1, X 

D2B4 

C8 



455 


I NY 


D2B5 

84 

52 


456 


STY 

DY 

D2B7 

AC 

25 

03 

457 

XDRAW2 

LDY 

HNDX INDEX FROM HI-RES 

D2BA 

A2 

00 


458 


LDX 

#$0 BASE ADR. 

D2BC 

8E 

2A 

03 

459 


STX 

COLLSN CLEAR COLLISION DETECT 

D2BF 

A 1 

1A 


460 


LDA 

(SHAPEL, X) 1ST SHAPE DEF BYTE. 


72 


D2C1 

85 

51 


461 

XDRAW3 

STA 

SHAPEX 

D2C3 

A2 

80 


462 


LDX 

#$30 

DSC 5 

86 

54 


463 


STX 

El EL, EH FOR FRACTIONAL 

DSC 7 

86 

55 


464 


STX 

EH L, R, U, D, VECTORS. 

DSC 9 

AE 

27 

03 

465 


LDX 

SCALF SCALE FACTOR. 

DSCC 

A5 

54 


466 

XDRAW4 

LDA 

El 

DSCE 

38 



467 


SEC 

IF FRAC COS OVFL 

DSCF 

65 

50 


468 


ADC 

DXL THEN MOVE IN 

DSD1 

85 

54 


469 


STA 

EL SPECIFIED VECTOR 

DSD3 

90 

04 


470 


BCC 

X DR AW 5 DIRECTION 

DSD5 

20 

CO 

DO 

471 


JSR 

LRUDX1 

DSD8 

18 



472 


CLC 


DSD9 

A5 

55 


473 

XDRAW5 

LDA 

EH IF FRAC SIN OVFL 

D2DB 

65 

52 


474 


ADC 

DY THEN MOVE IN 

DSDD 

85 

55 


475 


STA 

EH SPECIFIED VECTOR 

D2DF 

90 

03 


476 


BCC 

XDRAW6 DIRECTION +90 DEO. 

DSc.l 

20 

D9 

DO 

477 


JSR 

LRUD2 

D2c4 

CA 



478 

XDRAW6 

DEX 

LOOP ON SCALE 

D2E5 

DO 

E5 


479 


BNE 

XDRAW4 FACTOR. 

DSE7 

A5 

51 


480 


LDA 

SHAPEX 

DSE9 

4A 



481 


LSR 

; NEXT 3-BIT VECTOR 

D2E.A 

4A 



482 


LSR 

} OF SHAPE DEF. 

D2FB 

4A 



483 


LSR 


D2EC 

DO 

D3 


484 


BNE 

XDRAW3 

DScE 

E6 

1A 


485 


INC 

SHAPEL 

D2E0 

DO 

02 


486 


BNE 

XDRAW7 NEXT BYTE OF 

D2E2 

E6 

IB 


487 


INC 

SHAPEH SHAPE DEF. 

DSr 4 

A1 

1A 


488 

XDRAW7 

LDA 

(SHAPEL, X> 

DSE6 

DO 

C9 


489 


BNE 

XDRAW3 DONE IF ZERO. 

DSF 8 

60 



490 


RTS 






492 

* ENTRY POINTS FROM APPLE-II BASIC 

D2F9 

20 

90 

D3 

493 

3P0SN 

JSR 

PCOLR POSN CALL, COLR FROM BASIC 

D2FC 

8D 

24 

03 

494 


STA 

HCOLOR 

D2EF 

20 

AF 

D3 

495 


JSR 

GETYO YO FROM BASIC. 

D302 

48 



496 


PHA 


D303 

20 

9A 

D3 

497 


JSR 

GETXO XO FROM BASIC. 

D306 

68 



498 


PLA 


D307 

20 

2E 

DO 

499 


JSR 

HPOSN 

D30A 

AE 

23 

03 

500 


LDX 

BXSAV 

D30D 

60 



501 


RTS 


D30E 

20 

F9 

D2 

502 

BPLOT 

JSR 

BPOSN PLOT CALL (BASIC). 

D31 1 

4C 

7D 

DO 

503 


JMP 

J-iPLOTl 

D314 

AD 

25 

03 

504 

BLIN1 

LDA 

HNDX 

D317 

4A 



505 


LSR 

i SET HCOLOR 1 FROM 

D318 

20 

90 

D3 

506 


JSR 

PCOLR BASIC VAR COLR. 

D31B 

20 

75 

DO 

507 


JSR 

HP0SN3 

D31E 

20 

9A 

D3 

508 

BLINE 

JSR 

GEIXO LINE CALL, GET XO FROM BASIC 

D321 

8A 



509 


TXA 


D3S2 

48 



510 


PHA 


D3S3 

98 



511 


TYA 


D3S4 

AA 



512 


TAX 


D325 

20 

AF 

D3 

513 


JSR 

GETYO YO FROM BASIC 

D3S.8 

A8 



514 


TAY 


D329 

68 



515 


PLA 


D32A 

20 

64 

D 1 

516 


JSR 

HLIN 

D3SD 

AE 

23 

03 

517 


LDX 

BXSAV 

D330 

60 



518 


RTS 


D331 

20 

90 

D3 

519 

BGND 

JSR 

PCOLR BACKGROUND CALL 

D334 

4C 

10 

DO 

520 


JMP 

BKGNDO 


73 







522 

* DRAW ROUTINES 

D337 

20 

F9 

D2 

523 

BDRAW1 

JSR 

BPOSN 

D33A 

20 

51 

D3 

524 

3 DR AW 

JSR 

BDRAWX DRAW CALL FROM BASIC. 

D33D 

20 

3B 

D2 

525 


JSR 

DRAW 

D340 

AE 

23 

03 

526 


LDX 

3XSAV 

D343 

60 



527 


RTS 


D344 

20 

F9 

D2 

528 

BXDRW1 

JSR 

BPOSN 

D347 

20 

51 

D3 

529 

BXDRAW 

JSR 

BDRAWX EX-OR DRAW 

D34A 

20 

9A 

D2 

530 


JSR 

XDRAW FROM BASIC. 

D34D 

AE 

23 

03 

531 


LDX 

BXSAV 

D350 

60 



532 


RTS 


D351 

8E 

23 

03 

533 

BDRAWX 

STX 

BXSAV SAVE FOR BASIC. 

D354 

AO 

32 


534 


LDY 

#$32 

D356 

20 

92 

D3 

535 


JSR 

PBYTE SCALE FROM BASIC. 

D359 

8D 

27 

03 

536 


STA 

SCALE 

D35C 

AO 

28 


537 


LDY 

#$28 

D35E 

20 

92 

D3 

538 


JSR 

PBYTE ROT FROM BASIC. 

D361 

48 



539 


PHA 

SAVE ON STACK. 

D362 

AD 

28 

03 

540 


LDA 

SHAPXL 

D365 

85 

1A 


541 


STA 

SHAPE! START OF 

D367 

AD 

29 

03 

542 


LDA 

SHAPXH SHAPE TABLE. 

D36A 

85 

13 


543 


STA 

SHAPEH 

D36C 

AO 

20 


544 


LDY 

#$20 

D36E 

20 

92 

D3 

545 


JSR 

PBYTE SHAPE FROM BASIC. 

D371 

FO 

39 


546 


BEG 

RERR1 

D373 

A2 

00 


547 


LDX 

#$0 

D375 

Cl 

1A 


548 


CMP 

(SHAPEL, X) > NUM OF SHAPES? 

D377 

FO 

02 


549 


BEG 

BDRWX1 

D3/9 

BO 

31 


550 


BCS 

REKR1 YES, RANGE ERR. 

D37B 

OA 



551 

BDRWX1 

A3L 


D37C 

90 

03 


552 


BCC 

BDRWX2 

D37E 

E6 

IB 


553 


INC 

SHAPEH 

D330 

18 



554 


CLC 


D331 

A8 



555 

BDRWX2 

TAY 

SHAPE NO. * 2. 

D332 

B 1 

1A 


556 


LDA 

(SHAPEL), Y 

D334 

65 

1A 


557 


ADC 

SHAPEL 

D336 

AA 



558 


TAX 

ADD 2-BYTE INDEX 

D337 

C8 



559 


INY 

TO SHAPE TABLE 

D338 

B 1 

1A 


560 


LDA 

(SHAPED, Y START ADR 

D33A 

6D 

29 

03 

561 


ADC 

SHAPXH (X LOW, Y HI). 

D33D 

A8 



562 


TAY 


D33E 

68 



563 


PLA 

ROT FROM STACK. 

D33F 

60 



564 


RTS 






566 

* BASIC PARAM FE1 CH SUBR 'S 

D390 

AO 

16 


567 

PCOLR 

LDY 

#$16 

D392 

B 1 

4A 


568 

PBYTE 

LDA 

( LOMEML ) , Y 

D394 

DO 

16 


569 


3NE 

RERR1 GET BASIC PARAM. 

D376 

88 



570 


DEY 

(ERR IF >255) 

D397 

B 1 

4A 


571 


LDA 

(LOMEML), Y 

D399 

60 



572 

RTSB 

RTS 


D39A 

8E 

23 

03 

573 

GETXO 

STX 

BXSAV SAVE FOR BASIC. 

D39D 

AO 

05 


574 


LDY 

#$5 

D39F 

B 1 

4A 


575 


LDA 

(LOMEML), Y XO LOW-ORDER BYTE. 

D3A1 

AA 



576 


TAX 


D3A2 

C8 



577 


INY 


D3A3 

B 1 

4A 


578 


LDA 

(LOMEML), Y HI-ORDER BYTE. 

D3A5 

A8 



579 


TAY 


D3A6 

EO 

18 


580 


CPX 

#$18 

D3A8 

E9 

01 


581 


SBC 

#$1 RANGE ERR IF >279 

D3AA 

90 

ED 


582 


BCC 

RTSB 

D3AC 

AC 

68 

EE 

583 

RERR1 

JMH 

RNGERR 

D3AF 

AO 

OD 


584 

GETYO 

LDY 

#$D OFFSET TO YO FROM LOMEM 

D3B1 

20 

92 

D3 

585 


JSR 

PBYTE GET BASIC PARAM YO. 

D3B4 

C9 

CO 


586 


CMP 

#$C0 (ERR IF >191) 

D3B6 

BO 

F4 


587 


BCS 

RERR1 

D3B8 

60 



588 


RTS 



74 



590 * SHAPE TAPE LOAD SUBROUTINE 


D3R9 

8E 

23 

03 

591 SHLOAD 

STX 

BXSAV SAVE FOR BASIC. 



D3BC 

20 

IE 

FI 

592 

JSR 

ACADR READ 2-BYTE LENGTH 

INTO 


D3BF 

20 

FD 

FE 

593 

JSR 

READ SASIC ACC 



D3C2 

A9 

00 


594 

LDA 

#$00 ; START OF SHAPE TABLE IS 

$0800 

D3C4 

85 

3C 


595 

STA 

AIL 



D3C6 

8D 

28 

03 

596 

STA 

SHAPXL 



D3C9 

18 



597 

CLC 




D3CA 

65 

CE 


598 

ADC 

ACL 



D3CC 

A8 



599 

TAY 




D3CD 

A9 

08 


600 

LDA 

#$08 i HIGH BYTE OF SHAPE 

TABLE 

POINTER 

D3CF 

85 

3D 


601 

STA 

A1H 



D3D1 

8D 

29 

03 

602 

STA 

SHAPXH 



D3D4 

65 

CF 


603 

ADC 

ACH 



D3D6 

BO 

25 


604 

BCS 

MFULL1 NOT ENOUGH MEMORY. 



D3D8 

C4 

CA 


605 

CPY 

PPL 



D3DA 

48 



606 

PHA 




D3DB 

E5 

CB 


607 

SBC 

PPH 



D3DD 

68 



608 

PLA 




D3DE 

BO 

ID 


609 

BCS 

MFULL1 



D3E0 

84 

3E 


610 

STY 

A2L 



D3E2 

85 

3F 


611 

STA 

A2H 



D3E 4 

C8 



612 

I NY 




D3E5 

DO 

02 


613 

BNfc 

SHI 0D1 



D3F.7 

69 

01 


614 

ADC 

#$1 



D3E9 

84 

4A 


615 SHL0D1 

STY 

LOMEML 



D3F.B 

85 

4B 


616 

STA 

LOMEMH 



D3ED 

84 

CC 


617 

STY 

PVL 



D3cF 

85 

CD 


618 

STA 

PVH 



D3:-l 

20 

FA 

FC 

619 

JSR 

RD2BIT 



D3. r - 4 

A9 

03 


620 

LDA 

#$3 . 5 SECOND HEADER. 



D3F6 

20 

02 

FF 

621 

JSR 

READX1 



D3F9 

AE 

23 

03 

622 

LDX 

BXSAV 



D3FC 

60 



623 

RTS 




D3r D 

4C 

6B 

E3 

624 MFULL1 

JMP 

MEMFUL 




END ASSEMBLY 

TOTAL ERRORS: 00 


75 





1 ****** **** ***> *•** a** K ***#-****•!<-#■#■*•#-*•» ****-a ■*•***■*■** 


3 * APPLE-DC 3ASIC RENUMBER / APPEND SUBROUTINES * 


4 

-» 




* 

5 

* 


VERSION 

TWO 

* 

.H 

* 


RENUMBER 

* 

7 

-* 


3CLR 


* 

g 

* 


> START 


* 

9 

* 


>SI'EP= 


» 

10 

* 


> CALL 

-10531 

* 

1 1 

* 




«■ 

12 

* 


OPTIONAL 

* 

13 

* 


>FROM= 


* 

14 

* 


>T0= 


»■ 

15 

* 


>CALL 

-10521 


16 

* 




»• 

17 

* 


USE RENX 

ENTRY 

»■ 

18 

* 


FOR RENUMBER ALL 

* 

19 

* 




* 

20 

* 


WO 2 APRIL 12, IV 78 

* 

21 

* 


APPLE COMPUTER INC. 

* 

22 

a *«••»** * 


** ’****#***•******■*** * ** % #■•»•*#■** *** if**** 

* 

24 

* 





25 

* 





26 

* 

650 

2 EQUATES 



27 

* 





28 

ROL 

EQU 

$0 

LOW-ORDER SW16 RO BYTE. 


29 

ROH 

EQU 

$1 

HI -ORDER. 


30 

ONE 

EQU 

$01 



31 

R11L 

EQU 

$16 

LOW-ORDER SW16 R 1 .1 BYTE. 


32 

R1 1H 

EQU 

$17 

HI -ORDER. 


33 

HI MEM 

EQU 

$4C 

BASIC HIMEM POINTER. 


34 

PPL 

EQU 

$C A 

BASIC PROG POINTER. 


35 

PVL 

EQU 

$CC 

BASIC VAR POINTER. 


36 

MEMFULL 

EQU 

$E36B 

BASIC MEM FULL ERROR. 


37 

PRDEC 

EQU 

$E5 1 B 

BASIC DECIMAL PRINT SUBR. 

38 

R ANGER R 

EQU 

$EE68 

BASIC RANGE ERROR. 


39 

LOAD 

EQU 

$FODF 

BASIC LOAD SUBR. 


40 

SL' 1 6 

EQU 

$F689 

SWFET 16 ENTRY. 


41 

GROUT 

EQU 

$FD8E 

CAR RET SUBR. 


42 

GOUT 

EQU 

$FDED 

CHAR OUT SUBR. 


44 

* 





45 

* 

SWEET 16 EQUATES 


46 

* 





47 

ACC 

EQU 

$0 

SWEET 16 ACCUMULATOR. 


48 

NEWLOW 

EQU 

$1 

NEW INITIAL LNO. 


49 

NEW I NCR 

! EQU 

$2 

NEW LNO I NCR. 


50 

LNLQW 

EQU 

$3 

LOW LNO OF RENUM RANGE. 


51 

LNHI 

EQU 

$4 

HI LNO OF RENUM RANGE. 


52 

TBLSTRT EQU 

$5 

LNO TABLE START. 


53 

TBLNDX1 

EQU 

$6 

PASS l LNO TBL INDEX. 


54 

TBLIM 

EQU 

$7 

LNO TABLE LIMIT. 


55 

SCR8 

EQU 

$8 

SCRATCH REG. 


56 

HMEM 

EQU 

$8 

HIMEM (END OF PRGM ) . 


57 

SCR9 

EQU 

$9 

SCRATCH REG. 


58 

PRGNDX 

EQU 

$9 

PASS 1 PROG INDEX. 


59 

PRGNDX1 

. EQU 

$A 

ALSO PROG INDEX. 


60 

NEWLN 

EQU 

$B 

NEXT "NEW LNO". 


61 

NEWLN1 

EQU 

$C 

PRIOR "NEW LNO" ASSIGN. 


62 

TBLND 

EQU 

$6 

PASS 2 LNO TABLE END. 


63 

PRGNDXS 

! EQU 

$7 

PASS 2 PROG INDEX. 


64 

CHRO 

EQU 

$9 

ASCII "0". 


65 

C.HRA 

EQU 

$A 

ASCII "A". 



76 



D400 20 89 F6 
D403 BO 
D4G4 33 
D405 34 
D406 F4 
D407 00 
D408 20 89 F6 
D40S 18 4C 00 
D40E 68 
D40F 38 
D410 19 CE 00 
D413 C9 
D41 4 35 
D41 5 36 
D416 21 
D417 3B 
0418 3C 
D419 C9 
041 A 37 
041 B 39 
041C 29 
D4 ID D8 
04 IE 03 46 
D420 3 A 
D421 26 

0422 EO 

0423 D7 

0424 03 38 
D426 4A 
D427 A9 
0428 39 
D429 6A 
D42A D3 
D42B 02 2 A 
D42D D4 
D42E 02 02 
D430 07 30 
0432 76 
D433 00 
D434 A5 01 
D436 A6 00 
D438 20 IB E5 
D43B A9 AD 
D43D 20 ED FD 
D440 A9 BE 
0442 20 ED FD 
D445 A5 17 
0447 A6 16 
0449 20 IB E5 
D44C 20 8E FD 

D44F 20 SC F6 


66 

MODE 

EQU 

$C 

CONST /LNO MODE. 

67 

TBLNDX2 EQU 

$B 

LNO TBL IDX FOR UPDATE. 

68 

OLDLN 

EQU 

*D 

OLD LNO FOR UPDATE. 

69 

STRCON EQU 

$B 

BASIC STR CON TOKEN. 

70 

REM 

EQU 

$C 

BASIC REM TOKEN. 

71 

R 13 

EQU 

$D 

SWEET 16 REG 13 (CPR REG). 

72 

THEN 

EQU 

$D 

BASIC THEN TOKEN. 

73 

LIST 

EQU 

$D 

BASIC LIST TOKEN. 

74 

DEL 

EQU 

$D 


75 

SCRC 

EQU 

$C 

SCRATCH REG FOR APPEND. 

77 

* 




78 

•» 

APPLE-11 BASIC 

RENUMBER SUBROUTINE - PASS 1 

79 


ORG 

$D400 


80 


OBJ 

$A400 


81 

RENX 

JSR 

SW16 

OPTIONAL RANGE ENTRY. 

82 


SUB 

ACC 


83 


ST 

LNLOW 

SET LNLGW=0> LNHI--0. 

84 


ST 

LNHI 


85 


DCR 

LNH I 


86 


RTN 



87 

RENUM 

JSR 

SW16 


88 


SET 

HMEM/ HI MEM 


89 


LDD 

©HMEM 


90 


ST 

HMEM 


91 

RNUM3 

SET 

SCR9, PVL+2 


92 


POPD 

©SCR9 

BASIC VAR PNT TO 

93 


ST 

TBL3TRT 

TBLSTRT AND TBLNDX1. 

94 


ST 

TBLNDX1 


95 


LD 

NEWLOW 

COPY NEWLOW (INITIAL) 

96 


ST 

NEWLN 

TO NEWLN. 

97 


ST 

NEWLN1 


98 


POPD 

©SCR9 

BASIC PROG PNTR 

99 


ST 

TBLIM 

TO TBLIM AND PRGNDX. 

100 


ST 

PRGNDX 


101 

PASS1 

LD 

PRGNDX 


102 


CPR 

HMEM 

IF PRGNDX >= HMEM 

103 


BC 

PASS2 

THEN DONE PASS 1. 

104 


ST 

PRGNDX 1 


105 


LD 

TBLNDX1 


106 


I NR 

ACC 

IF < TWO BYTES AVAIL IN 

107 


CPR 

TBLIM 

LNO TABLE THEN RETURN 

108 


BC 

MERR 

WITH "MEM FULL" MESSAGE. 

109 


LD 

©PRGNDX1 


1 10 


ADD 

PRGNDX 

ADD LENTH BYTE TO PROG INDEX. 

111 


ST 

PRGNDX 


112 


LDD 

©PRGNDX 1 

LINE NUMBER. 

113 


CPR 

LNLOW 

IF < LNLOW THEN GOTO P13. 

114 


BNC 

P IB 


115 


CPR 

LNHI 

IF > LNHI THEN GOTO PIC. 

116 


BNC 

P 1 A 


117 


BNZ 

PIC 


118 P 1 A 

STD 

©TBLNDX1 

ADD TO LNO TABLE. 

119 


RTN 



120 


LDA 

ROH 

6502 CODE **** 

121 


LDX 

ROL 


122 


JSR 

PRDEC 

PRINT OLD LNO NEW LNO 

123 


LDA 

#$AD 

(RO, R1 1 ) IN DECIMAL. 

124 


JSR 

COUT 


125 


LDA 

#$BE 


126 


JSR 

COUT 


127 


LDA 

R11H 


128 


LDX 

R11L 


129 


JSR 

PRDEC 


130 


JSR 

CROUT 


131 -a 





132 


JSR 

SW16+3 

END 6502 CODE **** 


77 







133 

■a 




D452 

2B 



134 


LD 

NEWLN 


D4 53 

3C 



135 


ST 

NEWLN 1 

COPY NEWLN TO NEWLN 1 AND I NCR 

D454 

A2 



136 


ADD 

NEW I NCR 

NEWLN BY NEWINCR. 

D4S5 

3E 



137 


ST 

NEWLN 


D456 

00 



138 


HEX 

OD 

'NUL ' (WILL SKIP NEXT INSTRUCTION) 

D457 

01 



139 

P1B 

CPR 

NEWLOW 

IF LOW LNO < NEW LOW THEN RANGE ERR. 

D45S 

02 

C2 


140 


BMC 

PASS1 


D45A 

00 



141 

RERR 

RTN 

PRINT "RANGE ERR" MESSAGE AND RETURN. 

D^5B 

4C 

68 

EE 

142 


JMP 

RANGERR 


D4 5E 

00 



143 

MERR 

RTN 

PRINT "MEM 

FULL" MESSAGE AND RETURN. 

D45F 

4C 

6B 

E3 

144 


JMP 

MEMFULL 


0462 

EC 



145 

PIC 

I NR 

NEWLN 1 

IF HI LNO <= MOST RECENT MEwLN THEN 

0463 

DC 



146 


CPR 

NEWLN 1 

RANGE ERROR. 

D464 

02 

F4 


147 


BNC 

RERR 






147 

* 








150 

* 

APPLE DC BASIC 

RENUMBER / APPEND SUBROUTINE - PASS I 





151 

-* 




0466 

19 

30 

00 

152 

PASS2 

SET 

CHRO, $00B0 

ASCII "0". 

0469 

1A 

CO 

00 

153 


SET 

CHRA, *00C0 

ASCII "A". 

D46C 

27 



154 

P2A 

LD 

PRGNDX2 


D46D 

08 



155 


CPR 

HMEM 

IF PROG INDEX = HI MEM THEN DONE PASS 

04 6E 

03 

63 


156 


BC 

DONE 


0470 

E7 



157 


I NR 

PRGNDX2 

SKIP LENTH BYTE. 

0471 

67 



1 58 


LDD 

GPRGNDX2 

LINE NUMBER. 

0472 

30 



159 

UPDATE 

ST 

OLDLN 

SAVE OLD LNO. 

0473 

25 



160 


LD 

TBLSTRT 


0474 

3B 



161 


ST 

TBLNDX2 

INIT LNO TABLE INDEX. 

D 475 

21 



162 


LD 

NEWLOW 

I NIT NEWLN TO NEWLOW. 

0476 

1C 



163 


HEX 

1C 

(WILL SKIP NEXT INSTR ) 

0 4/7 

2C 



164 

UD2 

LD 

NEWLN 1 


D478 

A2 



165 


ADD 

NEW I NCR 

ADD £ NCR TO NEWLN 1. 

0479 

3C 



166 


ST 

NFWLN1 


D47A 

23 



167 


LD 

TBLNDX2 

IF LNG TEL IDX = TBLND THEN DONE 

04 7B 

136 



168 


SUB 

TBLND 

SCANNING LNO TABLE 

04 7 C 

03 

07 


169 


BC 

UD3 


0 4 7 E 

6B 



170 


LDD 

(2T6LNDX2 

NEXT LNO FROM TABLE. 

D47F 

BO 



171 


SUB 

OLDLN 

LOOP TO UD2 IF NOT SAME AS OLDLN. 

0430 

07 

F5 


172 


BNZ 

UD2 


0432 

C7 



173 


PGPD 

2PRGNDX2 

REPLACE OLD LNO WITH CORRESPONDING 

0483 

2C 



174 


LD 

NEWLN 1 

NEW LINE. 

0434 

77 



175 


STD 

(2PRGNDX2 


0435 

IB 

28 

00 

176 

UD3 

SET 

STRCON, *002e STR CON TOKEN. 

0-488 

1C 



177 


HEX 

1C 

(SKIPS NEXT TWO INSTRUCTIONS) 

D489 

67 



178 

GOTCON 

LDD 

GPRGNDX2 


D43A 

FC 



179 


OCR 

MODE 

IF MODE = 0 THEN UPDATE LNO REF. 

D4QB 

08 

E5 


180 


BM1 

UPDATE 


D43D 

47 



181 

r TEM 

L.D 

SPRGNDX2 

BASIC TOKEN. 

048E 

09 



182 


CPR 

CHRO 


D48F 

02 

09 


183 


BNC 

CHKTQK 

CHECK TOKEN FOR SPECIAL. 

0491 

DA 



184 


CPR 

CHRA 

IF >= "0" AND < "A" THEN SKIP CONST 

0492 

02 

F5 


185 


BMC 

GOTCON 

OR UPDATE. 

0494 

F7 



186 

SKPASC 

OCR 

PRGNDX2 


0495 

67 



187 


LDD 

@PRGNDX2 

SKIP ALL NEG. BYTES OF STR CON, REM, 

0496 

05 

FC 


183 


BM 

SKPASC 

OR NAME. 

0498 

F7 



189 


OCR 

PRGNDX2 


0499 

47 



190 


LO 

2PRGNDX2 



78 


D49A DB 
D49B 06 F 7 
D49D 1C 5D 00 
-O'! AO DC 
04 A 1 06 FI 
D'!A3 08 13 
D4A5 FD 
D4A6 FD 
D4A7 06 OF 
D4A9 ID 24 00 
D4AC OD 
D4AD 06 09 
D4AF FO 
0450 06 BA 
D4B2 ID 74 00 
D 4)3 5 BD 
0406 09 01 
D4B8 SO 
D4B9 3C 
D4BA 01 D 1 


191 

CHKTOK 

CPR 

STR CON 

192 


BZ 

SKPA5C 

193 


SET 

REM, $00 5D 

194 


CPR 

REM 

195 


BZ 

SKPASC 

196 


BM1 

CQNTST 

197 


DCR 

R 13 

198 


DCR 

R 1 3 

199 


BZ 

CGNTST 

200 


SET 

THEN, $0024 

201 


CPR 

THEN 

202 


BZ 

CONTST 

203 


DCR 

ACC 

204 


BZ 

P2A 

205 


SET 

LIST, $0074 

206 


SU3 

LIST 

207 


BNM1 

C0NTS2 

20S 

CQNTST 

SUB 

ACC 

209 

C0NTS2 

ST 

MODE 

210 


BR 

ITEM 


STR CON TOKEN? 

YES, SKIP SUBSEQUENT BYTES. 

REM TOKEN? 

YES, SKIP SUBSEQUENT LINE. 
003UB, l-OOK FOR LINE NUMBER. 

(TOKEN $5F IS GOTO) 


'THEN' LNO, LOOK FOR L.NO. 

EOL (TOKEN 01)? 

SET MODE IF LIST OR LIST COMMA 
(TOKENS $74, $75) 

CLEAR MODE FOR LNO 
UPDATE CHECK. 


212 * 
213 * 


APPLE III BASIC APPEND SUBROUTINE 


D43C 

20 

89 

F6 

216 

APPEND 

JSR 

SW16 


D4BF 

1C 

4E 

00 

217 


SET 

SCRC, HIMEM+2 


D402 

CC 



218 


POP D 

QSCRC 

SAVE HI MEM. 

D4C3 

38 



219 


ST 

HMEM 


D4C4 

19 

CA 

00 

220 


SET 

SCR 9, PPL 


D4C7 

69 



221 


LOO 

QSCR9 


D4C8 

7C 



222 


STD 

QSCRC 

SET HI MEM TO PRE! 

D4C9 

00 



223 


RTM 



D4CA 

20 

DF 

FO 

224 


JSR 

LOAD 

LOAD FROM TAPE. 

DiCD 

20 

89 

F6 

225 


JSR 

SW16 


D4 DO 

CC 



226 


POPD 

QSCRC 

RESTORE HI MEM TO 

D4D1 

23 



•T T * * 


LD 

HMEM 

(OLD AMD NEW) 

D4D2 

7C 



223 


STD 

QSCRC 


0403 

00 



529 

DONE 

RTM 

RETURN. 


D4D4 

60 



230 


RTS 




IERVE PROGRAM. 


SHOW BOTH PROGRAMS. 


END ASSEMBLY 

TOTAL ERRORS: 00 
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ASM 


1 **************************** 
2 * * 

3 * 6502 RELOCATION * 

4 * SUBROUTINE * 

5 * * 

6 * 1. DEFINE BLOCKS * 

7 * *A4<A1. A2 ~Y * 

8 * ('"‘Y IS CTRL-Y) * 

9 * * 


10 

* 2 . 

FIRST 

SEGMENT 

* 

11 

* 

*A4<A1 

. A2 ~Y 

* 

12 

* 

(IF 

CODE) 

* 

13 

* 



* 

14 

* 

*A4<A1 

. A2M 

* 

15 

* 

(IF 

MOVE) 

* 

16 

* 



* 

17 

* 3. 

SUBSEQUENT SEGMENTS 

* 

18 

* 

*. A2 * 

Y OR *. A2M 

* 

19 

* 



* 

20 

* WOZ 11 

-10-77 

* 

21 

* APPLE COMPUTER INC. 

* 

22 

* 



* 

23 

**************************** 

25 

* 




26 

* RELOCATION SUBROUTINE 

: EQUATES 

27 

* 




28 

R1L 

EQU 

$02 SWEET 16 

REG 1. 

29 

INST 

EQU 

$0B 3-BYTE INST FIELD. 

30 

LENGTH 

EQU 

$2F LENGTH CODE 

31 

YSAV 

EQU 

$34 CMND BUF 

POINTER 

32 

AIL 

EQU 

$3C APPLE- I I 

MON PARAM AREA. 

33 

A4L 

EQU 

$42 APPLE-I I 

MON PARAM REG - 

34 

IN 

EQU 

$0200 


35 

SW16 

EQU 

$F689 ; SWEET 

16 ENTRY 

36 

INSDS2 

EQU 

$F 88 E j DISASSEMBLER ENTRY 

37 

NXTA4 

EQU 

$FCB4 POINTER 

: I NCR SUBR 

38 

FRMBEG 

EQU 

$01 SOURCE BLOCK BEGIN 

39 

FRMEND 

EQU 

$02 SOURCE BLOCK END 

40 

TOBEG 

EQU 

$04 DEST BLOCK BEGIN 

41 

ADR 

EQU 

$06 ADR PART 

OF INST. 


80 


43 * 

44 * 6502 RELOCATION SUBROUTINE 

45 * 


46 ORG 

47 OBJ 


D4DC 

A4 

34 


48 

RELOC 

LDY 

D4DE 

B9 

00 

02 

49 


LDA 

D4E1 

C9 

AA 


50 


CMP 

D4E3 

DO 

OC 


51 


BNE 

D4E5 

E6 

34 


52 


INC 

D4E7 

A2 

07 


53 


LDX 

D4E9 

B5 

3C 


54 

INIT 

LDA 

D4EB 

95 

02 


55 


STA 

D4ED 

CA 



56 


DEX 

D4EE 

10 

F9 


57 


BPL 

D4F0 

60 



58 


RTS 

D4F 1 

AO 

02 


59 

REL0C2 

LDY 

D4F3 

B 1 

3C 


60 

GET INS 

LDA 

D4F5 

99 

OB 

00 

61 


STA 

D4F8 

88 



62 


DEY 

D4F9 

10 

F8 


63 


BPL 

D4FB 

20 

8E 

F8 

64 


JSR 

D4FE 

A6 

2F 


65 


LDX 

D500 

CA 



66 


DEX 

D501 

DO 

OC 


67 


BNE 

D503 

A5 

OB 


68 


LDA 

D505 

29 

OD 


69 


AND 

D507 

FO 

14 


70 


BEQ 

D509 

29 

08 


71 


AND 

D50B 

DO 

10 


72 


BNE 

D50D 

85 

OD 


73 


STA 

D50F 

20 

89 

F6 

74 

XLATE 

JSR 

D512 

22 



75 


LD 

D513 

D6 



76 


CPR 

D514 

02 

06 


77 


BNC 

D516 

26 



78 


LD 

D517 

B 1 



79 


SUB 

D518 

02 

02 


80 


BNC 

D51A 

A4 



81 


ADD 

D51B 

36 



82 


ST 

D51C 

00 



83 

SW16RT 

RTN 

D51D 

A2 

00 


84 

STINST 

LDX 

D51F 

B5 

OB 


85 

STINS2 

LDA 

D521 

91 

42 


86 


STA 

D523 

E8 



87 


INX 

D524 

20 

B4 

FC 

88 


JSR 

D527 

C6 

2F 


89 


DEC 

D529 

10 

F4 


90 


BPL 

D52B 

90 

C4 


91 


BCC 

D52D 

60 



92 


RTS 


$D4DC 

$A4DC 

YSAV CMND BUF POINTER 
IN, Y NEXT CMD CHAR 
#$AA '*'? 

REL0C2 NO, RELOC CODE SEG. 
YSAV ADVANCE POINTER. 

#$07 

AIL, X MOVE BLOCK PARAMS 
R1L, X FROM APPLE-I I MON 
AREA TO SW16 AREA 
INIT R 1=S0URCE BEG, R2= 

SOURCE END, R4=DEST BEG. 

#$02 

(AIL) i Y COPY 3 BYTES TO 
INST, Y SMI 6 AREA 

GET I NS 

INSDS2 CALCULATE LENGTH OF 
LENGTH INST FROM OPCODE. 

0=1 BYTE, 1=2 BYTES, 

XLATE 2=3 BYTES. 

INST 

#$0D WEED OUT NON-ZERO-PAGE 
STINST 2 BYTE INSTS <IMM>. 
#$08 IF ZERO PAGE ADR 
STINST THEN CLEAR HIGH BYTE 
INST+2 

SW16 IF ADR OF ZERO PAGE 

FRMEND OR ABS IS IN SOURCE 

ADR (FRM) BLOCK THEN 

SW16RT SUBSTITUTE 

ADR ADR-SOURCE BEG+DEST BEG 

FRMBEG 

SW16RT 

TOBEG 

ADR 

#$00 
INST, X 

( A4L ) , Y COPY LENGTH BYTES 
OF INST FROM SW16 AREA TO 
NXTA4 

LENGTH DEST SEGMENT. UPDATE 
STINS2 SOURCE, DEST SEGMENT 
REL0C2 POINTERS. LOOP IF NOT 
EEYOND SOURCE SEG END. 


END ASSEMBLY 

TOTAL ERRORS: 00 
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1 **************■*■**•*■&*■»**•«■#■*•«■*■»• 


2 * * 

3 * TAPE VERIFY * 

4 * * 

5 * JAN 78 * 

6 * BY WOZ * 

7 * * 

8 * * 


9 *»*»************■*****•***•*■«•*** 
11 * 

12 * TAPE VERIFY EQUATES 






13 









14 

CHKSUM 

EQU 

$2E 






15 

Ai 

EQU 

$3C 






16 

HI MEM 

EQU 

$4C ; BASIC HIMEM POINTER 





17 

PP 

EQU 

$CA ; BASIC BEGIN OF PROGRAM 





18 

PRLEN 

EQU 

$CE ; BASIC PROGRAM LENGTH 





19 

XSAVE 

EQU 

$D8 ; PRESERVE X-REG FOR BASIC 





20 

HDRSET 

EQU 

$F11E ; 

SETS TAPE POINTERS TO $CE. CF 





21 

PRGSET 

EQU 

$F12C ; 

SETS TAPE POINTERS FOR PROGRAM 





22 

NXTA1 

EQU 

$FCBA ; 

INCREMENTS (Al) AND COMPARES TO i 





23 

HEADR 

EQU 

$FCC9 






24 

RDBYTE 

EQU 

$FCEC 






25 

RD2BIT 

EQU 

$FCFA 






26 

RDBIT 

EQU 

$FCFD 






27 

PRA1 

EQU 

$FD92 i 

PRINT (AD- 





28 

PRBYTE 

EQU 

$FDDA 






29 

CDUT 

EQU 

$FDED 






30 

FINISH 

EQU 

$FF26 i 

CHECK CHECKSUM* RING BELL 





31 

PRERR 

EQU 

$FF2D 






33 

* 








34 

* 

TAPE 

VERIFY 

ROUTINE 





35 

* 








36 


ORG 

$D535 






37 


OBJ 

$A535 


D535 

86 

D8 


38 

VFYBSC 

STX 

XSAVE i 

PRESERVE X-REG FOR BASIC 

D537 

38 



39 


SEC 



D538 

A2 

FF 


40 


LDX 

#$FF 


D53A 

A5 

4D 


41 

GETLEN 

LDA 

HIMEM+1 

i CALCULATE PROGRAM LENGTH 

D53C 

F5 

CB 


42 


SBC 

PP+1, X 

; INTO PRLEN 

D53E 

95 

CF 


43 


STA 

PRLEN-*- 1 

* X 

D540 

E8 



44 


I NX 



D541 

FO 

F7 


45 


BEQ 

GETLEN 


D543 

20 

IE 

FI 

46 


JSR 

HDRSET 

; SET UP POINTERS 

D546 

20 

54 

D5 

47 


JSR 

TAPEVFV 

' .DO A VERIFY ON HEADER 

D549 

A2 

01 


48 


LDX 

#$01 ; PREPARE FOR PRGSET 

D54B 

20 

2C 

FI 

49 


JSR 

PRGSET 

; SET POINTERS FOR PROGRAM VERIFY 

D54E 

20 

54 

D5 

50 


JSR 

TAPEVFY 

D551 

A6 

D8 


51 


LDX 

XSAVE ; 

RESTORE X-REG 

D553 

60 



52 


RTS 




82 



53 * 

54 * TAPE VERIFY RAM IMAGE (A1.A2) 

55 * 


D554 

20 

FA 

FC 

56 

TAPEVFY JSR 

RD2BIT 

D557 

A9 

16 


57 


LDA 

#$16 

D559 

20 

C9 

FC 

58 


JSR 

HEADR ; SYNCHRONIZE ON HEADER 

D55C 

85 

2E 


59 


STA 

CHKSUM z INITIALIZE CHKSUM 

D55E 

20 

FA 

FC 

60 


JSR 

RD2BIT 

D561 

AO 

24 


61 

VRFY2 

LDY 

#$24 

D563 

20 

FD 

FC 

62 


JSR 

RDBIT 

D566 

BO 

F9 


63 


BCS 

VRFY2 /CARRY SET IF READ A '1' BIT 

D568 

20 

FD 

FC 

64 


JSR 

RDBIT 

D56B 

AO 

3B 


65 


LDY 

#$3B 

D56D 

20 

EC 

FC 

66 

VRFY3 

JSR 

RDBYTE / READ A BYTE 

D570 

FO 

OE 


67 


BEQ 

EXTDEL ; ALWAYS TAKEN 

D572 

45 

2E 


68 

VFYLOOP EOR 

CHKSUM ; UPDATE CHECKSUM 

D574 

85 

2E 


69 


STA 

CHKSUM 

D576 

20 

BA 

FC 

70 


JSR 

NXTA1 ; INCREMENT Al, SET CARRY IF A1>A2 

D579 

AO 

34 


71 


LDY 

#$34 ; ONE LESS THAN USED IN READ FOR EXTRA 12 

D57B 

90 

FO 


72 


BCC 

VRFY3 /LOOP UNTIL A1>A2 

D57D 

4C 

26 

FF 

73 


JMP 

FINISH / VERIFY CHECKSUMMING BELL 

D5S0 

EA 



74 

EXTDEL 

NOP 

/EXTRA DELAY TO EQUALIZE TIMING 

D5S1 

EA 



75 


NOP 

/ (+12 USEC) 

D582 

EA 



76 


NOP 


D583 

Cl 

3C 


77 


CMP 

(Al, X) / BYTE THE SAME? 

D585 

FO 

EB 


78 


BEQ 

VFYLOOP / IT MATCHES, LOOP BACK 

D587 

48 



79 


PHA 

/ SAVE WRONG BYTE FROM TAPE 

D588 

20 

2D 

FF 

80 


JSR 

PRERR /PRINT "ERR" 

D58B 

20 

92 

FD 

81 


JSR 

PRA1 /OUTPUT (Al)"-" 

D58E 

B1 

3C 


82 


LDA 

(Al ), Y 

D590 

20 

DA 

FD 

83 


JSR 

PRBYTE / OUTPUT CONTENTS OF Al 

D593 

A9 

AO 


84 


LDA 

#$A0 /PRINT A BLANK 

D595 

20 

ED 

FD 

85 


JSR 

COUT 

D598 

A9 

A8 


86 


LDA 

#$A8 / ' ( ' 

D59A 

20 

ED 

FD 

87 


JSR 

COUT 

D59D 

68 



88 


PLA 

/ OUTPUT BAD BYTE FROM TAPE 

D59E 

20 

DA 

FD 

89 


JSR 

PRBYTE 

D5A1 

A9 

A9 


90 


LDA 

#$A9 / ' ) ' 

D5A3 

20 

ED 

FD 

91 


JSR 

COUT 

D5A6 

A9 

8D 


92 


LDA 

#$8D /CARRIAGE RETURN, AND RETURN TO CALLER 

D5A8 

4C 

ED 

FD 

93 


JMP 

COUT 


END ASSEMBLY 

TOTAL ERRORS: 00 
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: ASM 


1 *************************** 


2 

* 


* 

3 

* 

RAMTEST: * 

4 

* 


* 

5 


BY 

woz * 

6 

* 

6/77 * 

7 

* 


* 

8 

* COPYRIGHT 1978 BY: * 

9 

* APPLE COMPUTER INC * 

10 

* 


* 

11 

*************************** 

13 

* 



14 

* 

EQUATES: 

15 

* 



16 

DATA 

EQU 

$0 TEST DATA $00 OR $FF 

17 

NDATA 

EQU 

$1 INVERSE TEST DATA. 

18 

TESTD 

EQU 

$2 GALLOP DATA. 

19 

R3L 

EQU 

$6 AUX ADR POINTER. 

20 

R3H 

EQU 

$7 

21 

R4L 

EQU 

$8 AUX ADR POINTER. 

22 

R4H 

EQU 

$9 

23 

R5L 

EQU 

$A AUX ADR POINTER. 

24 

R5H 

EQU 

$B 

25 

R6L 

EQU 

$C GALLOP BIT MASK. 

26 

R6H 

EQU 

$D ($0001 TO 2^N > 

27 

YSAV 

EQU 

$34 MONITOR SCAN INDEX. 

28 

A1H 

EQU 

$3D BEGIN TEST BLOCK ADR. 

29 

A2L 

EQU 

$3E LEN (PAGES) FROM MON. 

30 

SETCTLY EQU 

$D5B0 ; SET UP CNTRL-Y LOCATION 

31 

PRBYTE 

EQU 

$FDDA BYTE PRINT SUBR. 

32 

COUT 

EQU 

$FDED CHAR OUT SUBR. 

33 

PRERR 

EQU 

$FF2D PRINTS 'ERR-BELL' 

34 

BELL 

EQU 

$FF3A 


84 



RAMTEST: 


36 * 

37 * 

38 * 





39 

ORG 




40 

OBJ 

D5BC 

A9 

C3 

41 SETUP 

LDA 

D5BE 

AO 

D5 

42 

LDY 

D5C0 

4C 

BO D5 

43 

JMP 

D5C3 

A9 

00 

44 RAMTST 

LDA 

D5C5 

20 

DO D5 

45 

JSR 

D5C8 

A9 

FF 

46 

LDA 

D5CA 

20 

DO D5 

47 

JSR 

D5CD 

4C 

3A FF 

48 

JMP 

D5D0 

85 

00 

49 TEST 

STA 

D5D2 

49 

FF 

50 

EOR 

D5D4 

85 

01 

51 

STA 

D5D6 

A5 

3D 

52 

LDA 

D5D8 

85 

07 

53 

STA 

D5DA 

85 

09 

54 

STA 

D5DC 

85 

OB 

55 

STA 

D5DE 

AO 

00 

56 

LDY 

D5E0 

84 

06 

57 

STY 

D5E2 

84 

08 

58 

STY 

D5E4 

84 

OA 

59 

STY 

D5E6 

A6 

3E 

60 

LDX 

D5E8 

A5 

00 

61 

LDA 

D5EA 

91 

08 

62 TEST01 

STA 

D5EC 

C8 


63 

INY 

D5ED 

DO 

FB 

64 

BNE 

D5EF 

E6 

09 

65 

INC 

D5F1 

CA 


66 

DEX 

D5F2 

DO 

F 6 

67 

BNE 

D5F4 

A6 

3E 

68 

LDX 

D5F6 

B 1 

06 

69 TEST02 

LDA 

D5F8 

C5 

00 

70 

CMP 

D5F A 

FO 

13 

71 

BEQ 

D5FC 

48 


72 

PHA 

D5FD 

A5 

07 

73 

LDA 

D5FF 

20 

DA FD 

74 

JSR 

D602 

98 


75 

TYA 

D603 

20 

8A D6 

76 

JSR 

D606 

A5 

00 

77 

LDA 

D608 

20 

8A D6 

78 

JSR 

D60B 

68 


79 

PLA 

D60C 

20 

7F D6 

80 

JSR 

D60F 

C8 


81 TEST03 

INY 

D610 

DO 

E4 

82 

BNE 

D612 

E6 

07 

83 

INC 

D614 

CA 


84 

DEX 

D615 

DO 

DF 

85 

BNE 

D617 

A6 

3E 

86 

LDX 

D619 

A5 

01 

87 TEST04 

LDA 

D61B 

91 

OA 

88 

STA 

D61D 

84 

OD 

89 

STY 

D61F 

84 

OC 

90 

STY 

D621 

E6 

OC 

91 

INC 

D623 

A5 

01 

92 TEST05 

LDA 

D625 

20 

45 D6 

93 

JSR 

D628 

A5 

00 

94 

LDA 

D62A 

20 

45 D6 

95 

JSR 

D62D 

06 

OC 

96 

ASL 

D62F 

26 

OD 

97 

ROL 

D631 

A5 

OD 

98 

LDA 


$D5BC 

$A5BC 

#$C3 i SET UP CNTRL-Y LOCATION 

#$D5 

SETCTLY 

#$0 TEST FOR $00, 

TEST 

#$FF THEN $FF. 

TEST 

BELL 

DATA 

#$FF 

NDATA 

A1H 

R3H INIT (R3L, R3H> , 

R4H (R4L, R4H), (R5L, R5H) 

R5H TO TEST BLOCK BEGIN 
#$0 ADDRESS. 

R3L 

R4L 

R5L 

A2L LENGTH (PAGES). 

DATA 

( R4L ) , Y SET ENTIRE TEST 
BLOCK TO DATA. 

TEST01 

R4H 

TEST01 

A2L 

( R3L ) , Y VERIFY ENTIRE 
DATA TEST BLOCK. 

TEST03 

PRESERVE BAD DATA. 

R3H 

PRBYTE PRINT ADDRESS, 

PRBYSP 

DATA THEN EXPECTED DATA, 

PRBYSP 

THEN BAD DATA, 

PRBYCR THEN 'ERR-BELL'. 

TEST02 

R3H 

TEST02 
A2L LENGTH. 

NDATA 

( R5L ) , Y SET TEST CELL TO 
R6H NDATA AND R6 
R6L (GALLOP BIT MASK) 

R6L TO $0001. 

NDATA 

TEST6 GALLOP WITH NDATA. 

DATA 

TEST6 THEN WITH DATA. 

R6L 

R6H SHIFT GALLOP BIT 
R6H MASK FOR NEXT 
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D633 

C5 

3E 


99 


CMP 

D635 

90 

EC 


100 


BCC 

D637 

A5 

00 


101 


LDA 

D639 

91 

OA 


102 


STA 

D63B 

E6 

OA 


103 


INC 

D63D 

DO 

DA 


104 


BNE 

D63F 

E6 

OB 


105 


INC 

D641 

CA 



106 


DEX 

D642 

DO 

D5 


107 


BNE 

D64 4 

60 



108 

RTS1 

RTS 

D6«5 

85 

02 


109 

TEST6 

STA 

D647 

A5 

OA 


110 


LDA 

D649 

45 

OC 


111 


EOR 

D64B 

85 

08 


112 


STA 

D64D 

A5 

OB 


113 


LDA 

D64F 

45 

OD 


114 


EOR 

D651 

85 

09 


115 


STA 

D653 

A5 

02 


116 


LDA 

D655 

91 

08 


117 


STA 

D657 

B 1 

OA 


118 


LDA 

D659 

C 5 

01 


119 


CMP 

D65B 

FO 

E7 


120 


BEQ 

D65D 

48 



121 


PHA 

D65E 

A5 

OB 


122 


LDA 

D660 

20 

DA 

FD 

123 


JSR 

D663 

A5 

OA 


124 


LDA 

D665 

20 

8A 

D6 

125 


JSR 

D668 

A5 

01 


126 


LDA 

D66A 

91 

OA 


127 


STA 

D66C 

20 

8A 

D6 

128 


JSR 

D66F 

68 



129 


PLA 

D670 

20 

8A 

D6 

130 


JSR 

D673 

A5 

09 


131 


LDA 

D675 

20 

DA 

FD 

132 


JSR 

D678 

A5 

08 


133 


LDA 

D67A 

20 

8A 

D6 

134 


JSR 

D67D 

A5 

02 


135 


LDA 

D67F 

20 

8A 

D6 

136 

PRBYCR 

JSR 

D682 

20 

2D 

FF 

137 


JSR 

D685 

A9 

8D 


138 


LDA 

D687 

4C 

ED 

FD 

139 


JMP 

D68A 

20 

DA 

FD 

140 

PRBYSP 

JSR 

D6SD 

A9 

AO 


141 


LDA 

D68F 

4C 

ED 

FD 

142 


JMP 





143 


ORG 

03F8 

4C 

C3 

D5 

144 

USRLOC 

JMP 


A2L NEIGHBOR. DONE 
TEST05 IF > LENGTH. 

DATA 

( R5L ) i Y RESTORE TEST CELL. 

R5L 

TEST04 

R5H I NCR TEST CELL 
POINTER AND DECR 
TEST04 LENGTH COUNT. 

TESTD SAVE GALLOP DATA. 

R5L 

R6L SET R4 TO R5 
R4L EX-OR R6 
R5H FOR NEIGHBOR 
R6H ADDRESS (1 BIT 
R4H DIFFERENCE). 

TESTD 

(R4L > , Y GALLOP TEST DATA. 
(R5L),Y CHECK TEST CELL 
NDATA FOR CHANGE. 

RTS1 (OK). 

PRESERVE FAIL DATA. 

R5H 

PRBYTE PRINT TEST CELL 
R5L ADDRESS# 

PRBYSP 

NDATA 

(R5L ) » Y (REPLACE CORRECT DATA) 
PRBYSP THEN TEST DATA BYTE, 

PRBYSP THEN FAIL DATA, 

R4H 

PRBYTE 

R4L THEN NEIGHBOR ADR, 

PRBYSP 

TESTD THEN GALLOP DATA. 
PRBYSP OUTPUT BYTE, SPACE. 
PRERR THEN 'ERR-BELL '. 

#*8D ASCII CAR. RETURN. 

COUT 

PRBYTE 

#$AO OUTPUT BYTE, THEN 
COUT SPACE. 

$3F8 

RAMTST ENTRY FROM MON (CTRL-Y) 


END ASSEMBLY 


TOTAL ERRORS: 00 



i-»* fi-S-rt-X 0 '4 •* »•»•*•*•*■**#*•»*■»■*» H--3- 


* MUSIC SUBROUTINE 


-* GARY J. SHANNON 


* -a* •*■*■»■*•#■•& ■#■* *•* >■»•#>•»•«»■«• 


D7 1 7 4C 4E D7 


D71A A 4 01 
D71C AD 30 CO 
D71F E6 02 
D721 DO 05 
D723 E6 03 
D725 DO 05 
D727 60 
D728 EA 
D729 4C 2C D7 
D72C 88 
D72D FO 05 
D72F 4C 32 D7 


D732 

D734 

D736 

D739 

D73B 

D73D 

D73F 

D741 

D742 

D743 

D746 

D747 

0749 

D74C 


DO EG 
A 4 00 
AD 30 CO 
E6 02 
DO 05 
E6 03 
DO 05 
60 
EA 

4C 46 D7 
88 

FO D 1 
4C 4C D7 
DO EB 


10 
11 
12 

13 

14 * 

15 DOWNTIME EQU 

16 UPTIME EQU 

17 LENGTH EQU 

18 VOICE EQU 

19 LONG EQU 

20 NOTE EQU 

21 SPEAKER EQU 
ENTRY JMP 


* PLAY ONE NOTE 


DUTY CYCLE DATA IN 'UPTIME' AND 
'DOWNTIME', DURATION IN ' LENGTH ' 


22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 * 

33 PLAY 

34 

35 PLAY2 

36 

37 

38 

39 

40 PATH1 

41 

42 PATH2 

43 

44 

45 * 

46 

47 * 

48 PATH3 

49 DOWN 

50 

51 PLAY3 

52 

53 

54 

55 

56 PATH4 

57 

58 PATH5 

59 

60 

61 PATH6 


ZERO PAGE WORK AREAS 
PARAMETER PASSING AREAS 


SO 

51 

52 

S2FD 
S2FE 
S2FF 
SC 030 
LOOKUP 


CYCLE IS DIVIDED INTO 
AND 'DOWN' HALF 


LDY UPTIME i GET POSITIVE PULSE WIDTH 

LDA SPEAKER ; TOGGLE SPEAKER 

INC L.ENGTH i DURATION 

BNE PATH1 ; NOT EXPIRED 

INC LENGTH+1 

BNE PATH2 

RTS ; DURATION EXPIRED 

NOP , DUMMY 

JMP PATH2 ; TIME ADJUSTMENTS 

DEY i DECREMENT WIDTH 

BEQ DOWN J WIDTH EXPIRED 

JMP PATH3 i IF NOT, USE UP 


DOWN HALF OF CYCLE 


BNE PLAY2 ; SAME # CYCLES 

LDY DOWNTIME ; GET NEGATIVE PULSE WIDTH 

LDA SPEAKER ; TOGGLE SPEAKER 

INC LENGTH i DURATION 

BNE PATH4 ; NOT EXPIRED 

INC LENGTH+1 

BNE PATHS 

RTS ) DURATION EXPIRED 

NOP ; DUMMY 

JMP PATHS i TIME ADJUSTMENTS 
DEV i DECREMENT WIDTH 

BEQ PLAY ; BACK TO UP-SIDE 

JMP PATH6 ; USE UP SOME CYCLES 

BNE PLAY3 ; REPEAT 
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62 * 

63 * NOTE TABLE LOOKUP SUBROUTINE 

64 * 

65 * GIVEN NOTE NUMBER IN 'NOTE ' 

66 * DURATION COUNT IN 'LONG' 

67 * FIND 'UPTIME' AND 'DOWNTIME' 

68 * ACCORDING TO DUTY CYCLE CALLED 

69 * FOR BY 'VOICE'. 






70 

■a- 



D74E 

AD 

FF 

02 

71 

LOOKUP 

LDA 

NOTE i GET NOTE NUMBER 

D751 

OA 



72 


ASL 

; DOUBLE IT 

D752 

A8 



73 


TAY 


D753 

B9 

96 

D7 

74 


LDA 

NOTES, Y ; GET UPTIME 

D756 

85 

00 


75 


STA 

DOWNTIME i SAVE IT 

D758 

AD 

FD 

02 

76 


LDA 

VOICE i GET DUTY CYCLE 

D75B 

4A 



77 

SHIFT 

LSR 


D75C 

FO 

04 


78 


BEQ 

DONE i SHIFT WIDTH COUNT 

D75E 

46 

00 


79 


LSR 

DOWNTIME i ACCORDING TO VOICE 

D760 

DO 

F9 


80 


BNE 

SHIFT 

D762 

B9 

96 

D7 

81 

DONE 

LDA 

NOTES, Y ; GET ORIGINAL 

D765 

38 



82 


SEC 


D766 

E5 

00 


83 


SBC 

DOWNTIME i COMPUTE DIFFERENCE 

D768 

85 

01 


84 


STA 

UPTIME ; SAVE IT 

D76A 

C8 



85 


INY 

i NEXT ENTRY 

D763 

B9 

96 

D7 

86 


LDA 

NOTES, Y ; GET DOWNTIME 

D76E 

65 

00 


87 


ADC 

DOWNTIME i ADD DIFFERENCE 

D770 

85 

00 


88 


STA 

DOWNTIME 

D7 72 

A9 

00 


89 


LDA 

#0 

D774 

38 



90 


SEC 


D775 

ED 

FE 

02 

91 


SBC 

LONG j GET COMPLIMENT OF DURATION 

D778 

85 

03 


92 


STA 

LENGTH+1 MOST SIGNIFICANT BYTE 

D77A 

A9 

00 


93 


LDA 

#0 

D77C 

85 

02 


94 


STA 

LENGTH 

D77E 

A5 

01 


95 


LDA 

UPTIME 

D780 

DO 

98 


96 


BNE 

PLAY i IF NOT NOTE #0, PLAY IT 





97 

■a 







98 

* 'REST' SUBROUTINE' PLAYS NOTE #0 





99 

* SILENTLY, 

FOR SAME DURATION AS 





100 

* A REGULAR 

NOTE. 





101 

* 



D782 

EA 



102 

REST 

NOP 

i DUMMY 

D703 

EA 



103 


NOP 

; CYCLE USERS 

D784 

4C 

87 

D7 

104 


JMP 

REST2 i TO ADJUST TIME 

D787 

E6 

02 


105 

REST2 

INC 

LENGTH 

D7Q9 

DO 

05 


106 


BNE 

REST3 

D7SB 

E6 

03 


107 


INC 

LENGTH+1 

D78D 

DO 

05 


108 


BNE 

REST 4 

D7GF 

60 



109 


RTS 

; IF DURATION EXPIRED 

D790 

EA 



110 

REST3 

NOP 

i USE UP 'INC' CYCLES 

D791 

4C 

94 

D7 

111 


JMP 

REST 4 

D794 

DO 

EC 


112 

REST 4 

BNE 

REST i ALWAYS TAKEN 
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113 * 

114 * NOTE TABLES 

115 * 


D796 

00 

00 

F6 

116 NOTES 

HEX 

00, 00, 

F6, F6, E8, ES, 

DB, DB 

D79E 

CF 

CF 

C3 

117 

HEX 

CF, CF, 

C3, C3, B8, B8, AE, AE 

D7A6 

A4 

A4 

9B 

118 

HEX 

A4, A4, 9B , 9B, 92, 92, 

8A, 8A 

D7AE 

82 

82 

7B 

119 

HEX 

82, 82, 

73, 7B, 74, 74, 

6D, 6E 

D7B6 

67 

68 

61 

120 

HEX 

67, 68, 61, 62, 5C, 5C, 

57, 57 

D7BE 

52 

52 

4D 

121 

HEX 

52, 52, 

4D, 4E, 49, 49, 

45, 45 

D7C6 

41 

41 

3D 

122 

HEX 

41, 41, 3D, 3E, 3A, 3A, 

36, 37 

D7CE 

33 

34 

30 

123 

HEX 

33, 34, 

30, 31, 2E, 2E, 

2B, 2C 

D7D6 

29 

29 

26 

124 

HEX 

29, 29, 

26, 27, 24, 25, 

22, 23 

D7DE 

20 

21 

IE 

125 

HEX 

20, 21, 

IE, IF, ID, ID, 

IB, 1C 

D7E6 

1A 

1A 

18 

126 

HEX 

1A, 1A, 

18, 19, 17, 17, 

15, 16 

D7EE 

14 

15 

13 

127 

HEX 

14, 15, 

13, 14, 12, 12, 

11,11 

D7F6 

10 

10 

OF 

128 

HEX 

10, 10, 

OF, 10, OE, OF 



END ASSEMBLY 

TOTAL ERRORS: 00 
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APPENDIX 1 1 

SUMMARY OF 
PROGRAMMER’S 
AID COMMANDS 


92 Renumber 

92 Append 

92 Tape Verify (BASIC) 

93 Tape Verify (Machine Code and Data) 

93 Relocate (Machine Code and Data) 

94 RAM Test 

94 Music 

95 High-Resolution Graphics 

96 Quick Reference to High-Resolution Graphics Information 



Chapter 1: RENUMBER 


(a) To renumber an entire BASIC program: 

CLR 

START = 1000 
STEP = 10 
CALL -10531 

(b) To renumber a program portion: 

CLR 

START = 200 
STEP = 20 

FROM = 300 (program portion 

to be renumbered) 

CALL -10521 


Chapter 2: APPEND 

(a) Load the second BASIC program, with high line numbers: 

LOAD 

(b) Load and append the first BASIC program, with low line numbers: 

CALL -11076 


Chapter 3: TAPE VERIFY (BASIC) 

(a) Save current BASIC program on tape: 

SAVE 

(b) Replay the tape, after: 

CALL -10955 


92 


Chapter 4: TAPE VERIFY (Machine Code and Data) 


(a) From the Monitor, save the portion of memory on tape: 
address 1 . address2 W return 

(b) Initialize Tape Verify feature: 

D52EG return 

(c) Replay the tape, after: 

address 1 . address2 Ctrl Y return 

Note: spaces shown within the above commands are for easier 
reading only; they should not be typed. 

Chapter 5: RELOCATE (Machine Code and Data) 

(a) From the Monitor, initialize Code-Relocation feature: 

D4D5G return 

(b) Blocks are memory locations from which program runs . 

Specify Destination and Source Block parameters: 

Dest Blk Beg < Source Blk Beg . Source Blk End Ctrl Y * return 

(c) Segments are memory locations where parts of program 
reside . If first program Segment is code, Relocate: 

Dest Seg Beg < Source Seg Beg . Source Seg End Ctrl Y return 

If first program Segment is data. Move: 

Dest Seg Beg < Source Seg Beg . Source Seg End return 

(d) In order of increasing address, Move subsequent 
contiguous data Segments: 

. Source Segment End Ctrl Y return 

and Relocate subsequent contiguous code Segments: 

. Source Segment End M return 

Note: spaces shown within the above commands are for easier 
reading only; they should not be typed. 
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Chapter 6: RAM TEST 


(a) From the Monitor, initialize RAM Test program: 

D5BCG return 

(b) To test a portion of memory: 

address . pages Ctrl Y return (test begins at address, 

continues for length pages. 

Note: test length, pages*100, must not be greater than 
starting address. One page = 256 bytes ($100 bytes, in Hex). 


(c) To test more memory, do individual tests or concatenate: 

addr 1 .pages 1 Ctrl Y addr2.pages2 Ctrl Y addr3.pages3 Ctrl Y return 
Example, for a 48K system: 

400.4 Ctrl Y 800.8 Ctrl Y 1000.10 Ctrl Y 2000.20 Ctrl Y 
3000.20 Ctrl Y 4000.40 Ctrl Y 7000.20 Ctrl Y 8000.40 
Ctrl Y return 

(d) To repeat test indefinitely: 

N complete test 34:0 type one space return 

Note: except where specified in step (d), spaces shown within the above 
commands are for easier reading only; they should not be typed. 

Chapter 7: MUSIC 


(a) Assign appropriate variable names to CALL 
and POKE locations (optional): 

MUSIC = -10473 
PITCH = 767 
TIME = 766 
TIMBRE = 765 

(b) Set parameters for next note: 

POKE PITCH, p (p = 1 to 50; 32 = middle C) 

POKE TIME, m (m = 1 to 255; 170 = 1 second) 

POKE TIMBRE, t (t = 2, 8, 16, 32 or 64) 

(c) Sound the note: 

CALL MUSIC 
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Chapter 8: HIGH-RESOLUTION GRAPHICS 


(a) Set order of parameters (first lines of program): 

I X0 = Y0 = COLR 

(if shapes are used) 

(b) Assign appropriate variable names to subroutine 
calling addresses (optional; omit any subroutines 
not used in program): 

10 INIT = -12288 : CLEAR = -12274 : BKGND = -11471 

II POSN = -11527 : PLOT = -11506 : LINE = -11500 

12 DRAW = -11465 : DRAW 1 = -11462 

13 FIND = -11780 : SHLOAD = -11335 

(c) Assign appropriate variable names to color values 
(optional; omit any colors not used in program): 

20 BLACK = 0 : LET GREEN = 42 : VIOLET = 85 

21 WHITE = 127 : ORANGE = 170 : BLUE = 213 

22 BLACK2 = 128 : WHITE2 = 255 


(d) Initialize: 

30 CALL INIT 

(e) Change screen conditions, if desired. Set appropriate 
parameter values, and CALL desired subroutines by name. 

Example: 

40 COLR = VIOLET : CALL BKGND : REM TURN BACKGROUND VIOLET 
50 FOR I = 0 TO 279 STEP 5 

60 X0 = 140 : Y0 = 150 : COLR = WHITE : REM SET PARAMETERS 

70 CALL POSN : REM MARK THE ’’CENTER” 

80 X0 = I : Y0 = 0 : REM SET NEW PARAMETERS 

90 CALL LINE : REM DRAW LINE TO EDGE 

100 NEXT I : END 
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QUICK REFERENCE TO HIGH-RESOLUTION INFORMATION 


Subroutine 

CALLing 

Parameters 

Name 

Address 

Needed 

INIT 

-12288 




CLEAR 

-12274 




BKGND 

-11471 

COLR 


POSN 

-11527 

X0, 

Y0, 

, COLR 

PLOT 

-11506 

X0, 

Y0, 

, COLR 

LINE 

-11500 

X0, 

Y0j 

, COLR 

DRAW 

-11465 

X0, 

Y0, 

, COLR, SHAPE, ROT, SCALE 

DRAW1 

-11462 

SHAPE, 

ROT, SCALE 

FIND 

-11780 




SHLOAD 

-11335 





Color 

COLR 

Color 

COLR 

Name 

Value 

Name 

Value 

BLACK 

0 

BLACK2 

128 

GREEN 

42 

ORANGE 

170 

VIOLET 

85 

BLUE 

213 

WHITE 

127 

WHITE 2 

255 


(Note: on systems below S/N 6000, colors in the second 
column appear identical to those in the first column) 


CHANGING THE HIGH-RESOLUTION GRAPHICS DISPLAY 

Full-Screen Graphics POKE -16302, 0 

Mixed Graphics-Plus-Text (Default) POKE -16301, 0 

Page 2 Display POKE -16299, 0 

Page 1 Display (Normal) POKE -16300, 0 

Page 2 Plotting POKE 806, 64 

Page 1 Plotting (Default) POKE 806, 32 

(Note: CALL INIT sets mixed graphics-plus-text, and Page 1 plotting, 

but does not reset to Page 1 display « ) 


Collision Count for Shapes PEEK (810) 

(Note: the change in PEEKed value indicates collision.) 
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